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1. SCOPE 


This document describes the monthly weather and yield data base 
and associated computer programs installed on the 360/195 complex 
at Suit land, Maryland. The system is in support of Yield Estima- 
tion efforts of LACIE. 


2. APPLICABLE DOCUMENTS 


AD 63-1347-4963-01 
AD 63-1347-4963-04 

AD-04 requires specification for the India data base. This 
not available at the time of preparation of this document. 
Documentation for India will be delivered separately. 


3. SYSTEM DESCRIPTION 


The monthly yield data base system consists of three components 
The first is the computer hardware necessary to support the 
system. This is described in section 3.1. The second is a 
data base structure. This is described in section 3.2. The 
third is a set of support programs. This is described in 
section 3.3. 

3.1 HARDWARE DESCRIPTION 

These programs and data are resident on the IBM 360/195 complex 
at Suitland, Maryland. They should be transferable to any 
IBM 360-370 series machine with sufficient disk to handle the 
data base and main memory to support the PL/I optimizing 
compiler. 

3.2 DATA BASE STRUCTURE 

The data base (Monthly Yield Data Base) is a tree structure, 
nodes being countries, regions, districts, etc. Nodes are 
referred to as levels in the remainder of this document. The 
basic unit of information is a block. Blocks are of four types 
Control, Directory, Data Descriptor and Data, and Model Defini- 
tion, each with a corresponding PL/I structure given in 
appendix A. 

3.2.1 DATA BASE STORAGE REQUIREMENTS 

The data base currently occupies 288 6440 byte blocks, parti- 
tioned into three data sets: USA 114 blocks, USSR/Canada 

114 blocks, Arge T " 1 ’ ina/Aus tralia 60 blocks. 


3.2.2 CONTROL BLOCKS 

Thera is only one control block on a file. It is the first 
block to be defined and contains information on the block type 
of every other block in the file. It also contains the loca- 
tion of the directory entry for every level-one region (usually 
a country) . 

Control block information is divided into eleven sections, some 
of which are arrays with subsections. 

1. The first section is the file identification name which is a 
name up to eight characters in length describing the file. 

2. The second section gives the number of passwords which are 
available to use the programs accessing the file. 

3. The third section is an array of one to eight passwords, 
each up to eight characters in length. Any one of the pass- 
words can be used to access the programs. The number of 
passwords in this section should equal the number given in 
section 2. 

4. The fourth section gives che number of levels in which the 
data is arranged. 

5. The fifth section is an array of one to eight level names, 
each up to 24 characters in length. The levels refer to the 
organization of the data. The smaller the level number, the 
larger the region; the larger the level number, the smaller 
the region. For example, level one is probably a country, 
whereas level four may be a crop reporting district. Data 
are collected at the smaller regions (higher level numbers) 
and may or may not be aggregated up to lower level numbers. 

The number of level names in this section should equal the 
number given in section 4. 

6. The sixth section gives the number of codes, not to exceed 32, 
for variables which are in the data blocks. 


7. The seventh section is an array with subsections giving 
information on each of the codes. The six subsections are 
repeated for each of the codes , the number of which should 
equal the number in section 6. 

a. The code number identifies the variable , for example, 
precipitation. 

b. The unit number identifies how the variable is measured, 
for example, millimeters. 

c. The base is the number of digits allowed for an 
observation. 

d. The scale is the power of ten by which the observation 
is multiplied. This may be simply the number of decimal 
places in the observation; it eliminates keypunching the 
decimal points. 

e. The code name is a name up to 24 characters in length 
associated with the code number. 

f. The unit name is a name up to 24 characters in length 
associated with the unit number. 

8. The eighth section gives the number of level-one regions on 
the file. This will probably be the number of countries, 
and cannot exceed 24. 

9. The ninth section is an array with subsections giving infor- 
mation on each of the level-one regions. The 'five subsections 
are repeated for each level-one region, the number of which 
should equal the number in section 8. 

a. The code number identifies the level-one region. 

b. The number of directories is the current count of direc- 
tory entries on the file for that level-one region and 
all higher level regions within that level-one region. 
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e. The record number it the location on the file of the 
directory block containing the directory entry for the 
level-one region. 

ft 

d. The displacement number is the position in the directory 
block where the directory entry for the level-one region 
begins. 

e. The level-one region name is the name up to 24 characters 
in length for that region. 

10. The tenth section gives the number , not exceeding 601, of 
records or blocks which the file can contain, excluding the 
control block. Each block is 6440 bytes long. 

11. The eleventh section is an array with subsections giving 
information on each of the records on the file. The three 
subsections are repeated for each record, the number of 
which should be equal to the number in section 10. 

a/ The record type identifies each record according to what 
kind of block it contains. 

1) A type of 0 (zero) means blank or no information 
recorded on the record. 

2) A type of -1 (negative one) means the record contains 
directory entries. 

3) A type of +1 (positive one) means the record contains 
a data descriptor and data. 

4) A type of +2 (positive two) means the record contains 
a model definition block. 

b. The free space is the number of bytes on the record which 
are blank. 

c. The location is the position on the record where the free 
space begins. 




3.2.3 DIRECTORY BLOCKS 

There it a directory entry for every level, sublevel, sub- 
sublevel, etc., to a maximum of eight levels. The entries con- 
tain information which gives the location of other entries at 
the same level and at the next higher and next lower levels, and 
also information which gives the location in the file of the 
entry's data descriptor and model definition. Directory entries 
are grouped together in directory blocks, with the number of 
blocks dependent on the number of reporting districts. 

A directory entry is divided into fifteen sections, one of which 
is an array with three subsections. A directory block contains 
up to 84 directory entries, each 76 bytes long, for a level-one 
region. More than one directory block may be needed for a level- 
one region, but a directory block does not contain directory 
entries for more than one level-one region. 

1. The first section is the level number for the entry. It 
ranges from one to the maximum number of levels defined in 
the fourth section of the control block. 

2. The second section is the code number for the entry. It is 
a unique number only within that particular sublevel. For 
example, there could be a code number of 10 for more than 
one level-three entry provided each of them is associated 
with a different level-two region. 

3. The third section is the latitude for the region. It is a 
positive number for regions in the northern hemisphere and 
negative for those in the southern hemisphere. For large 
areas it is the latitude of some central point. 

4. The fourth section is the longitude for the region. It is 
a positive number in the western hemisphere and negative in 
the eastern hemisphere. For large areas it is the longitude 
of some central point. 
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5. The fifth section is the name of the region to which the 
directory entry pertains. 

6. The sixth section is the location on the file of the directory 
block which contains the directory entry for the "parent" of 
the current entry. The "parent" of any entry is the entry 
with the next smallest level number and of which the original 
entry is a part. For example, the Black Lands is a level-four 
region whose parent is the level-three region , Texas . The 
parent of Texas is the level- two region, the Great Plains, 
whose parent is the level-one region, the United States. 
Level-one regions have no parent, so the location is coded 

as -1 (negative one) . 

7. The seventh section is the position within the directory 
block where the parent's directory entry begins. The direc- 
tory block location is given in section 6; if the directory 
block location is a -1 (negative one), this position is set 
to a +1 (positive one) . 

8. The eighth section is the location on the file of the directory 
block which contains the directory entry for the "brother" 

of the current entry. The "brother" of any entry is the entry 
with the same level number, the same parent, and the next 
largest code number. For example, the brother of the Black 
Lands with code number 40 is East Texas North with code 
number 51. Both are at level four and have Texas as their 
parent. The brother of East Texas North is East Texas South 
which has the code number 52. The last entry under a given 
parent has no brother, so the location is coded as a -1 
(negative one) . 

9. The ninth section is the position within the directory block 
where the brother's directory entry begins. The directory 
block location is given in section 8; if the directory 
block location is -1 (negative one) , this position is set to 
a +1 (positive one) . 



10. Tha tenth section is the location on the file of the direc- 
tory block which contains the directory entry for the "child" 
of the current entry. The child of any entry is the entry 
with the next largest level number and the smallest code 
number of all entries which are a part of the current entry. 
For example# the North Nigh Plains# which is at level four 
and has a code number of 11# is the child of Texas. The 
entries with the highest level numbers have no children# so 
the location is coded as a -1 (negative one) . 

11. The eleventh section is the position within the directory 
block where the child's directory entry begins. The direc- 
tory block location is given in section 10; if the directory 
block location is a -1 (negative one) # then this position is 
set to a +1 (positive one) . 

12. The twelfth section is the location on the file of the block 
which contains the data descriptor entry# followed immediately 
by the data associated with the directory entry. T .f there 
are no data for the entry# this location is coded as a -1 
(negative one) . 

13. The thirtee. ch section is the position within the data 
descriptor and data block where the data descriptor entry 
begins. The data block location is given in section 12; 

if the data block location is a >1 (negative one) # then this 
position is coded as a +1 (positive one) . 

14. The fourteenth section is a ten-digit code number which is 
unique for every directory entry. It is made up of the 
code numbers for all lower level regions of which the par- 
ticular region is a part# and the region's own code number. 

The first two digits contain the level-one region code# the 
second two contain the level-two region cede# etc. When 
the region's own code is reached, the remaining digits are 
coded as zeros. For example# the United States would be 
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coded as 0300000000, the Great Plains as 0301000000, Texas 
as 0301480000, and the Black Lands as 0301484000. 

15. The fifteenth section is an array with subsections giving 
information on the model definition blocks for up to four 
different crops. 

a. The crop code identifies the crop whose yield the model 
is estimating. 

b. The model record number gives the location on the file 
of the model definition block for the particular crop 
and region. 

c. The model displacement number gives the position in the 

block where the model definition begins. 

* 

3.2.4 DATA DESCRIPTOR AND DATA BLOCKS 

There is a data descriptor entry preceding the data for every 
region for which data is available. It contains information 
about the region and completely describes the amount, type, and 
format of the data that follows. The data include historic 
weather and yield measurements for a particular region. 

A data descriptor entry, which is 336 bytes long, is divided 
into fifteen sections, one of which is an array with five sub- 
sections. The data descriptor entry immediately precedes the 
data for all years from a certain region. In many cases, there 
will be only one region's descriptor and data on a 6440-byte 
record. However, if there are a limited number of variables 
recorded and/or a limited number of years available, a second 
region's descriptor and data may be started in the middle of the 
record at byte 3221. 

. The first section is the identification number. It is the 
same ten-digit code number which is given in section four- 
teen of the region’s directory entry and has been previously 
described in part 3.2.3. 
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The second section is the World Meteorological Organization's 
code number for the region. If the region has no WMO number, 
this section is coded as zero. 

The third section is the latitude of the region and is iden- 
tical to the third section of the region's directory entry. 

The fourth section is the longitude of the region and is iden- 
tical to the fourth section of the region's directory entry. 

The fifth section is the elevation of the region. If unknown, 
this is coded as zero. 

The sixth section is the total number of years of data from 
the particular region which a record (or half a record) 
could contain. It will depend on the amount of data recorded 
for each year, which will vary according to country. 

The seventh section is the current count of the number of years 
of data from the particular region that the record contains. 

The eighth section is the length in bytes needed to store 
one year's data. This should be the same for regions within 
a country, but will vary between countries. 

The ninth section is the location on the file of the data 
block that contains the first chronological year's data for 
the region. In most cases this should be the same record 
location as the data descriptor entry's location. Also in 
most cases, the first chronological year and the first phys- 
ical year in the data block are the same. 

The tenth section is the position in the data block where the 
first chronological year's data begin. 

The eleventh section is the location on the file of the data 
block that contains the last chronological year's data for 
the region. In most cases the last chronological year and 
the last physical year in the data block are the same. 
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f 12. The twelfth section is the position in the data block where 

the last chronological year's data begin. 

13. The thirteenth section is reserved space/ eighteen bytes 
long. It is coded as blank and can be used later if needed. 

14. The fourteenth section is the number of codes, not to 

| exceed twelve, for variables used in the data which follow. 

f 

!- 15. The fifteenth section is an array with subsections giving 

information on each of the codes. The five subsections are 
repeated for each of the codes, the number of which should 
equal the number in section 14. The codes in the data 
descriptor entry should be a subset of the codes in the 
control block. 

I a. The code number identifies the variable. The code 

number table is given in appendix B. 

b. The number of elements is the number of times the vari- 
i able is recorded in a year. For example, if precipita- 

I tion is recorded on a monthly basis, the number of 

elements is twelve. 

c. The element size is the length in bytes of a single 

observation of the variable. For example, the precipi- 
tation for a given month uses two bytes of storage. 

d. The number of subcodes is the number of subdivisions 
into which the variable is broken down. For example, 
the variable production can be broken down into produc- 
tion for spring wheat and for winter wheat. 

e. An array of one to eight code numbers identifies the 
subdivisions of the variable. The number of codes in 
this array should equal the number given in part d 
above . 



The data which are stored in the data descriptor and data block 
will vary from country to country. However, for all countries 
the data for a region are grouped according to year and begin 
immediately after the region's data descriptor entry. Also 
for all countries, the first eight bytes of each year's data 
will contain the same variables. 

1; The first variable is the year in which the data were 
recorded. 

2. The second variable is the location on the file of the data 
block that contains the next chronological year's data for 
the region. 

3. The third variable is the position in the data block where 
the next chronological year’s data begin. 

4. The fourth variable is two bytes of reserved space which is 
coded as blank and can be used later if needed. 

3.2.5 MODEL DEFINITION BLOCKS 

There is a separate model definition block for every district 
requiring a unique yield model. It contains the information 
needed to run the appropriate model for that district. 


3.3 SUPPORTING PROGRAMS 

There are three classes of programs supporting the data base: 

1. Initialization and Definition Programs 

(INITIAL and YESM001, 3.3.1 to 3.3.10) These prepare the 
data base and subsections of the data base for data entry. 

2. Data Entry Programs 

(Loaders and UPDDATA, 3.3.11 to 3.3.12) These programs load 
data into the data base. 


3. Listing Programs 

(LIST JOB , YESLS02 , YESLS04, 3.3.13 to 3.3.15) These programs 
list data stored in the data base. 

3.3.1 DATA BASE INITIALIZATION PROGRAM (INITIAL) 

INITIAL prepares the data base for entry of directory and data 
by setting size information parameters and filling the data area 
with zeros. 

3.3. 1.1 Linkages 
None. 


3. 3. 1.2 Interfaces 
INITIAL must be run first. 

3.3.1. 3 Inputs 

The file name via JCL. The file size encoded at line 430. (See 
listing.) 

3. 3. 1.4 Outputs 

Data base prepared for subsequent processing. 

3. 3. 1.5 Flow Chart 
Next page. 
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3.3. 1.6 Listing 
Follows flow chart 
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3.3.2 CONTROL* DIRECTORY* AND DATA DESCRIPTOR ENTRY (YESMOOI) 

YESM001 is used to enter control directory and data descriptive 
information prior to data entry. 

3. 3. 2.1 Linkages 

YESMOOI calls YESX002* YESPC01* YESDF01 * YESDEOJL, YESLS01* and 
YESDD01. YESDE01* YESLS01 and YEStTDOl are dummy programs. 

3. 3. 2. 2 Interfaces 
INITIAL must be run before YESMOOI. 

3. 3. 2. 3 Inputs 

See 4. 1.2.1. '/• i - I 

3. 3.2.4 Outputs 

Directory descriptor and control entries in the data base. 

3. 3. 2. 5 Flow Chart 
Next page. 
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3. 3. 2. 6 Listing 
Follows flow chart 
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3.3.3 PASSWORD VALIDATION SUBROUTINE (YESX002) 

XBSX002 is a subroutine called by YESMOOl to validate the users 
password. 


3.3.3.1 Linkages 
None. 


3.3.3.2 Interfaces 

YESX002 searches the password section of the control block. 

3. 3. 3.3 Inputs 

Card containing password. 

3.3.3.4 Outputs 

Code allowing or disallowing data base access. 

3.3. 3.5 Flow Chart 
Next page. 


3.3. 3. 6 Listing 


Follows flow cl art 
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3.3.4 COMMAND CARD DECODING (YESPC01) 

YESPCOl is called by YESM001 to decode a command card. 

3. 3.4.1 Linkages 
None. 

3.3.4. 2 Interfaces 
None. 

3. 3. 4.3 Inputs 

A command card (see section 4);^ -f ^ * * 

/ . t 

3. 3. 4. 4 Outputs 

The card is parsed and results returned to YESM001. 

3. 3. 4. 5 Flow Chart 
Next page. 

3. 3. 4. 6 Listing 
Follows flow chart. 
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3.3.5 SELECTION OP TYPE OF DEFINITION (YESDF01) 

YESDP01 is called by YESM002 tc select the type of definition 
to be entered. 

3. 3.5.1 Link ages 

YBSDF01 calls YESDF02 , YESDF03 , YESDF04 , and YESDF05. YESDF05 
is a dummy subroutine. 

3.3. 5.2 Interfaces 

YESDF01 operates on a code produced fay YESPC01. 

3. 3.5. 3 Inputs 
See 3. 3.5. 2. 

3. 3. 5. 4 Outputs 

Indirectly — via the called routines. 

3. 3. 5. 5 Flow Chart 
Next page. 

3. 3. 5. 6 Listing 
Follows flow chart. 
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3.3.6 CONTROL BLOCK DEFINITION PROGRAM (YESDF02) 

YESDF02 enters control block information in the data base. 

« 

3. 3.6.1 Linkages 
None. 

3.3.6. 2 Interfaces 
None. 

3. 3. 6. 3 Inputs 

Control block definition cards. 

3. 3. 6. 4 Outputs 

Defined control block to data base. 

3. 3. 6. 5 Flow Chart 
Next page. 


3. 3.6. 6 Listing 


Follows flow chart 
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3.3.7 DATA DESCRIPTOR ENTRY (YESDF03) 

YE6DF03 enters data descriptors into the data base 


3. 3. 7.1 Linkages 
YBSDF03 calls GETDIR. 

3.3.7. 2 Interfaces 

A valid directory entry must exist before invocation 

3.3. 7. 3 Inputs 

Data descriptor cards. 

3.3. 7. 4 Outputs 

New data definitions in data base. 

3. 3.7. 5 Flow Chart 
Next page. 


3.3. 7. 6 Listing 


Follows flow chart 
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3.3.8 RECOVER DIRECTORY FROM THE DATA BASE 

GETDIR is used by YESM001 and the loaders (3.3) to recover 
directory blocks from the data base. 

3. 3. 8.1 Linkages 
None. 

3. 3. 8. 2 Interfaces 
None. 

3. 3. 8. 3 Inputs 

Level identification number. 

3.3. 8. 4 Outputs 

Directory block, or error indication. 

3. 3. 8. 5 Flow Chart 
Next page. 


3. 3. 8. 6 Listing 


Follows flow chart 
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3.3.9 DIRECTORY BLOCK ENTRY ROUTINE (YE8DF04) 
YE8DF04 places directory blocks in the data base. 

3.3.9.1 Linkages 
None. 

3.3. 9. 2 Interfaces 
None. 


3.3.9. 3 Inpats 
Directory definition cards. 

3. 3.9.4 Oatpttts 

Directory definition on the data base. 

3.3. 9. 5 Flow Chart 
Next page. 

3. 3. 9. 6 Listing 
Follows flow chart. 
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3.3.10 SUBPROGRAM STUBS 

The subprogram stubs YESDF05, YESLS01, YESUD01, YESDE02 are 
dummy subroutines. 

3.3.10.1 Linkages 
N/A. 

3.3.10.2 Interfaces 
N/A. 

3.3.10.3 „nguts 
N/A. 

3.3.10.4 Outputs 

The message: DUMMY CALL TO YESXX00X. 

3.3.10.5 Flow Chart 
N/A. 

3.3.10.6 Listing 
Next page. 
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iDESCRIPTION . 




EKASTI^riLE^ ’ l.M.eos.'CCEniEf.LIBR' 
amojo^ms* ~ i 


4t 


OATE copied. ; . .. NOME 
UPDATE NONE 




EMSKrk* mi 

language: 

E*ROC. PARAMETER 


Bssy sr* 1 

— ._ resoros: ppnc(svsi usvspgiMu ;.„.; ; :. 

.,; gyl ,§* I *~ Hle;(5vs^lnU-.list( U l* ****** 
C MP VSSPFORI _ m , i|)( ., • u , 


3&== 

"... snojcl t 
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«-.y--iwwy 


Aw,*i& . k<tka« A~-.*lL,.«> 


*" '* ^ttSS*** 1 '* 'IWVP'- " : * * > T "! JI SP 

*^-...-s.^.^ ;^r 


JRUN'.NO. 15 ' DATE r ^*l 1 /1 2/76'’" I'TImE*"” 091 0 

£D£ SCRIPT I ON. . .: 

Raster file 'v.eds.ccf a.lec.lirr. 

' AOOEO TO MASTER . v 10/13/76 _ 

hast date copied .r: .none ...... .i:....:.-' .';j....„zzi 

LAST iJPDATt NONE 


LISTING' OF MODULE YE<L SO r 

* - • v^g^.v-i ^ X'?^ ' * ‘ " V"'" ; 'T.^ J *. • ' ■* ■ * 

^ ^.ai* » -t* 


■.’-T'-' •■.rrsr ■ ~~ ,v 


PASSWORD 
■PROGRAMMER 
Language 
PROC PARAMETER 


vtcf 

:.LEC 


LEC 
PI. T 

SNOJCL 


YESLS01 J PROC (SVSI'USYSpRT'IT) 5 
r ' ■ DCL (SYSIN.SVS°RI*JT) file* 

OUT SK[R F I(_ r inT) L I S T ( • **i)ij'»mv C *LL To V^SI SO *.**.* II 

' return; .. : ..,....' J '...." .1- 

End yeslsoi ; . 


RUM NO. 15 
■DESCRIPTION 


'MASTER FILE 
ADDED TO MASTER 
ILAST DATE COPIED 
LAST IJPOATt 

PASSWORD 
..PROGRAMMER 
LANGUAGE 
PROC parameter 


DATE 11/12/76 


.'DATA RASE PG>* 


TI’-'E 0910 


LASTING OF MODULE YESUOOl 


W.FOS.CCEA.LEC.LIRR 

10 / 13 / 7 *. 

NONfc 

NONE 

?L»V 

lEc ... 

W L I 

SNIO JCL 


/TESinfU-T PROC (SYSf ‘i.sv^p^ j )T)J 

^ — --rrcr''isvMN.SYSk>utNT) file* 

OUT SKI® FILE (SYSPRINT) L I ST ( • **DUM.’ , Y (.ALL TO .YlSUOQI *«• ) * 

return; - - . 

END resuooi ? 




S2> 


LisTiNrr br Moburc vEsbeaF 


«aiEsCRipfio 

OfASTEP EILE ~ "" W.EOS.CtEA.LEC.LiaK 

, LAST UPDATE „ 


LPrS&WmmE# . „• .Zi 
LANGUAGE 
' PROC PARAMETER 






p^c jsyst^.sysp^I'it) ; 

tAYSIN.SYSPPIMT) PILc.; . .... ^ . 

!T*'»T >k 1 o. f U.CtSYSPRI*iU ,UISTLV«*QU^y t j;^jll s JO ,.J(£S 0x0 1 ,** • 

RETURN I ..«/ . ~’-.v^. ..*■ w* i'S^iA'-v* '-AUvwr^..: 


"€*«> YFSDtOi: 


^:r-r*.rr:~ 
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- 3.3.11 UPDATING THE DATA BASE (UPDDATA) 

=_ UPDDATA will enter or modify data in the 

! 
i 

i 

U 3.3.11.1 Linkages 

i 

None* 

3.3.11.2 Interfaces 

A directory must have been defined for the area to be updated. 

3.3.11.3 Inputs ' 

Update data cards. 

3.3.11.4 Outputs 
Updated data base. 

3.3.11.5 Flow Chart 
Next page. 

3.3.11.6 L isting 

Follows flow chart. j 
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PL/l OPTIMIZING COMPILER 


?UPOOAfA: PROC OPTIONSJMAINf* 




* STMT lev NT 






r ■ ww* 

. .■** 4.L.. > *»J 


EE3£~: 

?L ' ‘ 

EE3 


W!i*T? ■ .< 


Rim- 

* 

a: , • • 




. 8 

10 

II 18 


65 

66 
67 
6S 

69 

70 

71. 



0 

0 

0 

0 

0 

0 

0 

0 


i 0 
1 0 
1 0 


3a 
39 
AO 

41 

42 

43 

44 

45 

46 
49 

49 I 0 


1 0 
1 0 

if 
i i 
1 § 


i i 
i i 


/• 'ONPRlNit^Lr Character aWO appears" As a" Sunk i 

/* 


L ZERO CHAR (1281 VAR INlTUlZSl* ' ) * 

L MEI 0 ATMl|? 7 ix^Q V BINt 15.01 BASED (PITT 

OCL PNTR' CHAR ( 8 ) F |a5C0TP3) * 


*/ 


?4 1 H4s?D(Pn r 

lit - 


OCL YLOOATAU) FIXED BjNOltO) BASED(P2U 
88 l PN?rSaTa{4) ’ FIxIPbINIISiO) 8ASE0IP31 


OCL AFLAG SIT( 1 >* 

OCL «CKEY.DK€Y.00KXY.0NlH,0. 

space. length. Elements. b 

FORMEPOSP) 

FIXED BIN ( 15 . 0 ) t 
OCL LEVS FIXED rtlN( 31 . 0)5 
OCL (P 1 .P 2 .P 3 . 0 .R) POINTER 1 
OCL 01 POINTER* 

ON ENOEILE (CAPOS! GOTO EOJ» 


sp.i.j.fstyr. 
ORE. 


^..^R.YRSLEFT.OIFF.OSP* 

NEW Yfi . RCOOE . NXTO I SP .FORMERYR • 


.NEvyp,oC00E,FSTYR.LSTYR.YPSLEFT*0( 


1 

0 

o 

0 


CKEY^O■<EY♦ 00 KeY.unnI<p.DNUH♦Ltys«NE^YP»PC 0 , 

OIFF.DSP.LENGTH.ElEMENTS.BEFOPEsO; . k 

READ FILE (OAF) INTO (CONTROL) Kt Y (CKE Y) l 

ALLOCATE INPUT » 

G^V8aro: ® T ?{lE (CAROS) EDIT (INSTR)' (CoL(l).A(BO) ) ( 

GET STRING ( INS TP) EDIT (COUNTRY) ( X ( 70 ) .F ( 2 . 0 ) ) i . . . 

GET STRInG(INSTR) £DIT(INPgT.lNYP. INPUT. I nCO.OEF.INLVLCD) 


IE 


(X(3) *F(4«0) »F(3«0)»X(60) »f ( 10*0) ) * 

IF INPUT. iNCD<100 THEN GET STRING (1NSTR) EDIT e . . 

( ( INPUT • INMQN ( I ) DO 1 = 1 TO 12)) (X (10) .1? F(5«0) ) * 

INPUT.InCO>100 THEN GET STRINGIINSTR) EDIT 

( (OFF.INAGOTA(I) 00 1 = 1 TO 6)) (A(lf*l »6. F (10.0)) * 

..... .. ...... ... . ./ , 

/* CHECK IF INPUT ENTRY ANO YEAR ARE THE SAME AS THOSE ON */ 

/* THE PREVIOUS CARO. IF uOTH APE EOUAL THEN GO TO SECTION*/ 

/* WHICH CHECKS For NEW variable CoOE. IF ONLY TEAR IS */ 

7* CHANGED THEN GO TO SECTION WHICH FINDS NEw YEAR BLOCK. */ . 

/* If ROTH ARC CHANGED AND THIS ISN^J THE EIRST INPUT CARO*/ 

/* THEN REWRITE UPDATED DATA BLOCK AND START PROCESS OVER */ 

/* ... */_. 

IF DEF.IN'LVLCO=L'EVS 6 INPUT. INYPiNEWYR THEN GOTO UPDATE* 

IF OEF. INLVLC0=LEVS THEN SOTO FINOYR* 

IF Q0KEY>0 THEN DO* 

PFwRITF Fn e(OAF) E POM (DATA) KEY (OO^E Y ) * 

PUT SKIP(2) FILE(SYSPRINT) EDIT (•*** FILE UPDATED FOR REGION*. 
LEVS) ( A . F ( 1 1 • 0 » ) * 

DKEY.00KEY=0* .. 

FREE OUMhy* „ . .... 

ENO* ' ..... ,. 

LFVSsOEF. INLVLCO: NEWYR=InPUT. INYR * 

ALLOCATE DUMMY* 

AFLAG=*1*B* */ 

/* FINO DIRECTORY BLOCK FOP COUNTRY DEFINED ON INPUT CARD •/ 

/« */ 

DO 1=1 TO CONTROL. NUMONE WHILE(AFLAG) * „ ^ 

IF COUNTRY=CONTPOL.ONE ( 1 ) .CODE1NUM. THEN Do* .... 

AFLAG* *0*B* • ... - 

DKEY=COMTROL.ONE(I).RCCNUM* 

DNUM=C0NTR0L.0NE(I) .NUMOIRS* 

END* ..... - - - - 

end * . . . -■ 

ir okpy=o Th^n Dot 

PUT _ SKlP(?j FILE(SYSPRTNT) EDIT (****N0 DIRECTORY BLOCK FOUNO FOR'. 


• COUNTPY CODE '.COUNTRY 
RCOOE=-l* 


I* *»*•) (A.A.F ( 3 . 0 ) .A) * 


GOTO EOJ 5 
fnd; 

rp AO FILEOAF) INTO(OIRX) KEY (DKEY) * 

J= 0 * 

aflag='1'B* 

/* FINO DATA DESCRIPTOR and DATA BLOCK FOR INPUT ENTRY 
/* 

00 1 = 1 TO ONI IN WHILE (AFLAG) S 

jsj.l * 

IF J=iS THFt* 005 

D<EY=DKEY. 1 * . , . „ . . • ■ 

READ FILE(t)AF) INTO(OIKX) KEY(UKEY)* 

...nfiil 


*/ 

»/ 

*/ 


■BKETT-jr' 

- • 74 

; ggi;J i. 

i Btr-n*—**-’ - 2? 


S-ZT"; .. :■: fo 

91 

jnpiiai. ’■rw* « "*« 





JF^pEF jl^VljCOOIff I J» .LEVC°OE THEIT-Dor 

883 fs?» 4 ? 4 yi??DSf sp* , ~ ,/,y; ~~ r 

end * znzi^^sisars 


IF DOKEY»0 THEM DO* 7. • 

em gSto eoj! .:• .X;: „ ;. 

READ FILE tDAFr IMT0(0ATA} KE^(00KEf TCIZ 
nUMMY»SUHSTR(0ATA,(>f>r>ISR*336) t 


<">*<*N0 DATA BLOCK FOUND FOR.* < 
***1-14.A.F(11*0).A)I 


FINOYR* 

/* 


ALLOCATE PNTR* 


/* JPINO FI9ST AND LAST CHRONOLOGICAL YEARS DEFINED ANO ALSO*/ 
/• DISPLACEMENT OF FREE SPACE WITHIN OATA BLOCK •/ 


IF OESC.NUMaYRSaO THEN SUBSTR(DATA.DESC.FSTDISP*a)*ZEPO» 

p ^?Y^^42Htl?f sc * FST01SP ^ > 1 v — 

PNTPsSUHSTR<nATA.DESC.LSTOISP»B) 1 ..„...„ 

LSTYR*PNTROATA { 1 M 

. .OSPa(DESC.'tUMt»YRS*CE$C.BLKSIZ£) ♦D0QI$°*336« 

.. ..: /* . 

/« IF INPUT YEAR IS LESS ThAN FIRST YEA®. THEN CHECK FOR 
/• SPACE IN DATA BLOCK. CHANGE POINTER IM DESCRIPTOR. A 

/* INITIALIZE POINTERS AND DATA FOR NEW FIRST YEAR 

/* 


SPACE IN DATA BLOCK. CHANGE POINTER IN DESCRIPTOR. ANO */ 
INITIALIZE POINTERS AND DATA FOR NEW FIRST YEAR */ 


IF INPUT. INYR<FSTYP THEN DO* 

IF DESC.NU^BYRSaDESC.TOTELKS THEN DOl 


. PUT SKIP<2> FIlE(SYSPRINT) EDIT!'*** NOT ENOUGH YEAR BLOCKS' 
ALLOCATED TO ACCOMMODATE AN EXTRA YEAR *•**> (A. AM 

. RCODE=-l* 

GOTO EOJ* 

END* _ .. 

PNTRDATA(I)sIN®UT.INYR* . ....... .. ~ 


PNTRDATA (2) =00<EYJ 

PNTROAT A ( 3 ) *OESC . FSTD ! SP * 

.. pntrdata (amos ......... 

SUBSTR(04TA,DS».8>=PNTR* ...... 

B OB5TR (DATA,USR*b*0ESC.BLKSIZ£-B)=ZER05 . 

ESC.NUHflYRSsDESC.NUMBYRS* 1 * 

,. DESC.FSTl>ISR=OSP« 

END* ... ...: ..... .. ... . . . • 

/« */ 

/* IF INPUT YEAR IS GREATER THAN LAST YEAR* THEN CHECK FOR */ 
/* SPACE IN OATA BLOCK. CHANGE POINTER IN DESCRIPTOR* AND */ 
/♦ INITIALIZE POINTERS AND DATA FOR NEW LAST YEAR */ 

/* */ 

ELSE IF INPUT. INY=»I,STYP THEN DO* 

IF OE5C.'JUmAYRS=DESC.TOTHLKS then OOf 

PUT SKI® (2) FILE(SYSPRINT) EDIT***** NOT ENOUGH YEAR BLOCKS' 
♦ ALLOCATED TO ACCOMMODATE AN F*TRA YEAR ***•) (A.A)t 
RCOOE=-1* .... ... 

GOTO EOJ 5 

END* - .. 

PNTRDAT A ( 1 ) =INPUT . INYft* 

PNTRDATA (2 ) »~ l * ‘ : 

PNTRDATA ( J)sO* 

pntrdata ( A) =0 * " ■ ' " "7 . 

SUHSTR (OAT A .DSP. b ) aPNTR * 

StJBSTR (DAT A » OS®* 8. 0£ SC. BLKS I ZE-B ) a^ERO* 

pntrdatah i=lstyr; .. . .. ... 

PNTRD 'T A (? ) »DDKE Y * 

PNTRDATA (3 jaOSP* 

PNTRDATA (A) =o; 

IF DESC.'WHYRSpO THEN SUrtSTR (DATA.OESC.LSTDISP.6) =PNTR* 

DESC.NUY8Y®S s DESC.NUMt3YRS* 1 1 

DFSC.LSTOI SP=DSP « 

END* 

/* */ 

/* IF INPUT YEAR EQUALS A POEVIOUSLY DEFINED YEAR. FIND */ 
/• ITS DISPLACEMENT w I Trt I N DATA BLOCK. IF NOT. CHANGE */ 

/* NEXT YEAR POINTER IN APPROPRIATE YEAR BLOCK AND */ 

/* INITIALIZE POINTERS ANO DATA FOR NEW YEAH /* 

/* •/. 

El.SK DO* 

AFl. AG= ' 1 ' B * _ 

NXTOISPaOESC.ESTDTSP* „ _ 

00 1 = 1 TO DESC.NUMBYHS whILE(AFLAG) * ....... 

PNTR=SUBSTW(DATA,NXTDISP.Bl * 

IE INPUT. INYP=PNTRL)ATA(1) THEN DO* 

DSP=NXTOISP* 

AFL AG= • 0 ' B ? 

END*. .. ...... - - ..... ' - -■ 


TO ACCOMMODATE AN FXTRA year ***•) (A. AM 


IF IN»UT YEAR EQUALS A POEVIOUSLY DEFINED YEAR. FIND 
ITS DISPLACEMENT WITHIN DATA BLOCK. IF NOT. CHANGE 
NEXT YEAR POINTER IN APPROPRIATE YEAR BLOCK AND 
INITIALIZE POINTERS AND DATA FOR NEW YEAH 



183 

39 

90 

[91 

92 

[91 

194 

195 


196 

97 

198 

199 

200 

i» 

goi 

204 

205 


i 


ELSE If lN°'JT.INyR<PNT«OATA(l) THEN 001 
PNTRDAt A ( j ) =F ORM tR YR t 

^NTR0AT.A(2) *Ol)KEY< .... 


PNI 

PN 


SSJtSI 

R*)AT A (4) * 


h*oSPi 


UBSTR(QATA.F0QMERDSP.8>»PnTR1 .. . 

. ’NTPOAiAci l*INPUT»|NYHt — ,v.,. -.....■ - 

PNTRO AT A ( | ) *l)DKE Y I ... . . .. 


i 

0 

0 

0 

0 


0 

1 

2 


1 2 


1 1 TOfe. 


1 

, l 
i » 


i 


II 


0 

i 8 

i i 
i i 
i i 

i 0 
0 

1 o 

1 0 



A)*PNTftl_" 
NUMdYRS*!* 







NKTO 1 

£no?:!_: 

HO* 


RYRsPnTROATA ( 1 ) * 
RDSP»NXTOISP* 
5PspsjTPi)ATA(3) * , 


5uHSTR(nATA.OOOISP.3V»>=OUMMY* 
YPOATA«Z£PO* ' 

YRDATAsSURSTRIOATA.OSP.DESC.dLKSIZt) * 
UPDATE* $PACE*1 * LENGTHsO* 

AELA0«*IM? 

/* 


/* 

/* 


F 13§ E l:& t 5(?>5!i 0 ^5r£ 0 5 u 5I E b?rf!!?DT 9 ?SpS? 


CAPO 


•/ 

•/ 


WH 


00 1=1 TO DESC.NUMdCOOe 
IF INPUT. ImCP=OESC.OCOOE( 


_ . AG) * 

) .CODENUMK THEN 00* 

ENGTH=nESC.OCOOE(I) .HUHSELEH*oesC.DCOOE(I) •ELtMSlZE* 
ELEMENTSsDESC.OCOOE ( I ) .NUMSELEM* 

. t3EF0OE=SPACE* . .. „ - , ■ - 

aflag**5*b* . ... - -■ 

SOACE=SPACE*(0ESC.DC00E( l> .NUMSELEM*DESC.DCOOE(l > .ELEMMZE) * 
END* . . • 

PUT L SK IP*?!) 1 FILE (SYS°pIhT ) EDIT (•*<>* INVALID VARIABLE COOE*. 
INPUT. INCD.* ENCOUNTERED*** * ) ( A.F (5.0) • A) * 

PC00E=-1* ..... • . 

GOTO EOJ* • - - 

IF°INPUT. INCD<100 THEN DO* 

£* UPDATE INFORMATION IF VARIABLE IS METEOROLOGICAL 
/* 


•/. 

•/ 

*/ 


• THEN INPUT. lNM0N(I>=-9999* 
mFTD AT A ( I ) = INPUT , IN*0N ( I ) * 

|uBSTP(YROATA.HEFOPE.L£N&TH)=SUBSTP (MET. I. LENGTH) * 

F»£E MET* 

END* 

IF INPUT. !NCO>IOO THEN DO* 

/• UPDATE INFORMATION IF VARIABLE IS YIELD-TYPE 
/* 


*/ 

*/ 

*/ 


ALLOCATE yld* 

DO 1=1 TO ELEMENTS* 

IF DEFX.ACHARX(I>=' 


» THEN DEF • 1NAGDT A ( I ) =«9999 * 

yLOO AT A ( I F =DEF • InAOPT A ( I ) J 
END* 

SUBSTP (YP.DA TA.BEFOqE. LENGTH) =SUBSTR ( YLD. 1 .LENGTH) * 

FREE YLD* 

E ?5‘ •/ 

PLACE CHANGES BACK IN DATA BLOCK AND LOOP FOR NEW CAPU */ 
/* •/ 

SUR«;TR(DATA.USP.0ESC.HLKSlZfc)=YRnATA5 

GOTO GETCAPD* .. o 

EOJ: I *j^ C {]^| Y> 5 H ^£ > , 0 p Ewa i TE FILE(OAF) FPOM(OATA) KFy(OOKEY)* 

PUT SK 1 P ( ? ) FILE (SY5R.RINT ) EDIT (**«ENO OF DATA UPDATE***) 

END* 

FREE IN'STR* 

free j *i°ut j _ . 

FREE DUMMY * . . 

ENO URDOATA}, . . . ........ . . 


(A) S 




(ft) 


3.3.12 INITIAL DATA LOADERS 


The four programs USA, USSR, CANADA, and AUSARG are provided, 
one each for the USA, USSR, and Canada and a common loader for 
Australia/Argentina, to initially load the data base. 

3.3.12.1 Linkages 

All loaders call GETDIR. 

3.3.12.2 Interfaces 

Directory entries must exist for all data entered. 

3.3.12.3 Inputs 
Data cards. 

3.3.12.4 Outputs 

Initial data load of data base. 

3.3.12.5 Flow Chart 

A common flow chart is on the next page. 

3.3.12.6 Listing 


Follows flow chart 
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'. PUSSIA.DATA«kF?FPV2 = 
ALLOCATE INPUT DATA! 

, ?‘JS T S!>f 5 cv - 


0? 


FIXED BIM( 3 I. 0 » 
F f aF‘) h f m ( j | * o ) 


FIX^O 
FlXtO 
FIXED 
“ x£r> 
x|p 

XEO 
FIXED 


isr 

6 U*a:vv„. 


?a-. . ..:, 
Smm. •*» -.a, 


xt ) 
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? 
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HCL. HOL‘ULVLC^ 


in 

w f -*0 

LAri 

LO'sl Gr'"~ 

FLcV 

TGTAL*L<S A 

nuhbyssjjSe 

ELOCKSI^E 

fstpfcud 

FSTOTSP 
LSTPECW ; 

L STPI ^ 

PESEPVEO 
No'-scno 6 ' 

OCOD'F M?) . 

4 CQOENU 'E 
4 NIIMFFI.EM 
A . ELE *S I 1% , 

.4 numscoo£ 

4 $u*coD£<ai fixed 

Vft 3t«<32) CHA»<65)« 

ElC ChA^OM IfilTt* ' 

OATAOE<?2... LIKE DATADESC. . .:: 

Y9 “L <?.{ <?.) C SAP( -M) , 

F*C2 Chad< 65) I M I T ( • Ml - 
“ 3 IC'.U0)9».; 


BJm( 15«0) • •■■ 

bI’m'j Is«c ) * 

*31X1(15.0). 

8 I M d 5 • 3 ) . 
BIM(li.O) C. 
bTNd5»u) • 

.,. (15*0) * . 
si ’ ! 5 « 1/ ) • 

xeo bin a 5.0) >:r 
_ xED ACN(l'S.O) . 
CHAP d*) » 
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f . I XEO 
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DCL HOLD YH PTC •(?)}• 

DCL OHjTP FIxfp *? I ' .• (31)5 
DCL FILDXTA CHiP(Sb) aiSFOIPllS 

„ OCL i O'JNM'JS .. • J A5E.0>(P1> , ,. 

2 FILYF FIXED. dlNdS) . - ... .... : :.v. ..... 

2 Fit *'».T Y-> F 1 <EL> hIn(15} ♦. 

2 FIL"MAT*0ISP FIXED STDdS), 

?. C ILZ°FE? FIX’:.) ,<I:-!(.1S) * ... .... .. 

■ 2 FIL TEMP (.12) FIXED »IW(1S)« 

2 FtL_»-FCI&( 1 >) r IxE Voi Klb) * 

2 FIL HA->V(4) fixed EI'Mil). 

. a_ nil opr*)(<*) e-|x.Fy H I m ( 3 1 i 5 . . .. 

ALLOCATE FIlCATAS . ■ ■ : "*■/;’■. . . ■ ' , 

FIL Dp s-' = 0 5 

FIL TEMP a -99Q0; ... 

FII~POf-rro = _qq»qj 

ftl~hakv = fit ..'. .: . 

filI^od - o: 

DCL (DKEY.C^FY.OOKEY.DIPt.RC.YHCTP) FlXtO PIM15) J 
CKF.Y=0 8 

DCL 5TPTYP FIxE-fj RIn(15) * 

PTOTyi- = 1 )SE } 

YPCTP=J J 
PFSESV2 =05 

?tis TEMP = -9099,- ' . . 

Oils PPtCIP = -S‘9 'a0! 

PllC~Hi«V =0! 

9'!5 •-POD = OS 

DCL‘ f . f :F SV CHAP(l) InTTCOMS 
DCL r,PT(TlA F x r p i’ -i ' i f-r.lvyj 
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fnd; ~ ’ Z 

ST 90S S 
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if ACHAPKC2) = » ~ " 

IF 'INREG a on hem no; " 

PUS.HAPV'l) a INAGOTAIl ) T 
EMiis 

IF INPEG = 0? THEM 90* \ 

9U9 riAOV ( 1 ) = IfiAGOT 4(1)1 

PUS - HAPV(C> = INAGOTA{2)5 
fnoT 

.... IF IMPE3 w 03* THEN' 'OOf * 

PUS hAPVm = IMAGOTAID? 

ENl)T 

G9 TO GET OaTa; 

mv : p' is p«oo s “ * * ' r ' *" '*: :* * * ! " ' 

' IF ACHAJY ( i ) "a t t 

r* IF ACHAPX. (?) = • • 
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ENOS . 

1 . tF INPE6 a 03 Then 00* 

PUS P°Of) ( l ) a.. INAGOT.A (1.) 5 

V EMOT ^ ... . . 

GO TO oET.Oata* 

:1 PUT data: : 

IF YPCTP > 2? T.-*EM GO. TO 
t~: . YPCTP = Y-CTH ♦ It 

STPlrP = 5T-VTVP ♦ It 

I:"'"'" puS—YR = hold yp; 


fnt M""lN'AGUf » ( I ) = 

THEM INA5GTA(2> a -9999; 



ELSE OGt 

FILY* a STPTYGt 

FIL mat y 1> = pus oat y;x: 
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fi Sir f'O: 

** 0ATAUFS2.NUMBYPS USE ) = YOCTH! . 

PUS r <t Y s )ES ■>,|.ST:>' rvos 
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QUS_YR = HOLO.YPS ..'.. .,. • - -■• ... •-> 
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tF 0.')t>P(OIPn) = 1 Th£ I do; . - 

■ OATAOESC.NUM3YRS^USEO = YPCTP* 

YP„ a L* <Y-<CT.P) = . y.ATA„O.OT! . . ..... - ■ 

SET,.'.:''..::'.' EnD* - - 

ELSE nos _ ^ , . .- 

F’T" OATAOESP.MIJ'SHYPS.USEO s YRCTRJ :....,. ..■...■: 

YP P,L^'*<yPC TJ ) = OVTA DOTS. ... ' 

Ehus ... • 

HOl.0 YH = I MY PS 

';:y HOLO'LVLro - inlvlcos 

>jp PO = moi r> I ,'lCOS .. ^ 

r PETITE FILE(^AS) FROM (OA TA.OLfO KEY (QoKEY);. 

IF EOF S^I * • i • r— M ro TO K.OJS t ....... 

CALL GETO!P(OTP C0*0IR<«C'3NTR0L»0’AF*D<EY *0TR»*RCV* . 

ODKEY = -u t (•('.;?.:) : 

2c . READ FILE (fSAF) loTO (DAfA^RLK ) KtY IDDKEY ) t ..... . . . 

YRCT.P = C»S . 

■ STRTYP = 1 9Sfc S 

Ptjs 1>'VP = -S>*«QJ .... 

2 r R'isip.ptcip = -9999*' y ; yy.:, ' .. . . 

PUS HiwY =05 

*: ous-ppoo = o$ y 

•*,o To ch< cos s , 

r lojs * . .. .. . ..... ....... 

FPFE PUS^lfl 

FREE Input -Tata; 

fuel f IL’IaTa s . . .... 

'i'. r_y : eno Russia*... . ..... y.» ::.2y.:"... ; ^y.y.. .i.:--:. ....... ..... ... . — — ... : 


“"RUN NO. 15 

’.description 

MASTER FILE 
AiDOtO TO ••ASTER 
LAST DATE COPIED 
r LAST UPDATE 

PASSWORD 

PROGRAMMER 

LANOUAOP 

ppoc parameter 


DATE *11/12/75 TIME 0910 
LOADS AUSsARu DATA TO 05 
v*.EOS.CCEA.LEC.LIBR 

1 1 /■)•*// *i 

NONE 

NONE 

- ?C,7 
LEG 
'-L I 

SNOJCL 


LIST TV* OF MODULE AUSAPG 


//DC^ox jor ( »;.»D1 lsr.A 

// EXEC SOfcTD.RE<iIO*.= 3 OOK 


• . •COLiim* ) ,C OF"' • RE j l <JE = 290X * T IME* 1 


*•; t 3 


//s i .,.*» l'n I rs^vsOtt , spaces (soon, ao, .c< . r I v> > 

//S0&TXX02 00 UN! T = SXSOA,S J ACt= (6000 * 3 0 . .CON I lu) 

// SORT •• XII j jl * I . I Ts^VSi'A, S J '.C- = tr>noo«p'i « ,C>* - T 10) 

//SO^T -'XCj<* U) ll* IT=SY«; r )A,APiCfcs(5noo.A0.«CONTIf*) 

//SOOT . Xf 5 >jr» tjMl TsSYS'iAtS-’ 1 Ce= < 5000 *39 * *CU r> T I (>) 

//SOPf'KXOft UD UNI T = SVSD A , SPACE = (oijOO • J 0 • , CON T 161 

//SNOT'AiiT D 0 ‘is .= ROs « f > I 3 U = ( i'.-S) .'IN I T=SYS''A»S°ACE = ( 15**0 « (300, 3',) l . 

// OOR^C-ECF' sF - .LRECl. = rfO, IL<SI**>lo*0J 

//sautm do DSNS *• . tOS . CCt A . -:E T . A.JSD A T A t u I &»«aLsl 

//STM -i DO » 

SN3T FIELOAr (7R* A.C-i. A. I . 1 0 , CH * A ) , $ 1 /L b i)00 

RECORD TYOE=F*LEnGTr=(3J> 

end . 

/• 

// -'PLlFCLo 

//°L 1 L .SYsI.i 00 « 

A S AR 5 R-ff 0»TI0'.R( (AIN) i ._ _ 

OCL 1 CONTROL* 

2 F ILE 10 Ora j (*i)* 

2 N'JRRASS FIXED BIJU5.0). 

✓ PARS(i) CHA-'(-»> * ...... _ 

2 NUVLEV fixed 010(15*0), 

? LEvnA’-'F (X) C**AP(>A), 

2 NU'-'COOc. FIXED 51 M 15.0) « 

2 COOi- ( j - > . 

3 rODt-INM rTVE:n Rp:(lS.O). 

5 1 IN I I . i ■' T ( i E*; -»('■<( (5*i)) • 

3 RASE FIXED JI V (1?« 0) « 
j SC )<_E t T *£0 •* ( '(I 
3 COO? NAxf c-iAM^M* 

3 '(Ni l ' c **.A- ( -to) 


2 CJ'l-'O iE f I <£0 

J i . 

3 CODE 1 
J N‘ l ; 

3 

j 

3 


PDd'.O) 


>■' ry <> 1 i- T -! ( 15,0) 
• f ! »?■> <! 

*r C- 1' r* PIXEO ’T :( n.i) • 
■'I i r I •! Mi-u 1 I 
•• 'A -E CHAR (2to) . 


2 F iLr.-r ! - F l * £ u -> I ' 1 1 I •>*•'•) * 

2 RED 091 ) . 

.1 -ECt)Af sixEO iJ'"d->.0). 
3 frfspaCe rixt d •• i *( l i'.O) 
j l OCM I ON f 1 <m) •> ! N ( 1 -i • 0 ) 

DDL 1 niR.x. 

2 DIP ( *to ) « 

3 LF«Ux.i* FIXED 5! N (15*0)* 

J CODe. vi " E l ’ ( 1 -> * J ) * 

3 LAT FIXED dTN d 5*0) * 

.1 l 0'i ) t < - ■ i • I • ( In. 0 ) . 

3 DI&MA -F rM:vN(£4) . 

J E PEC f 1 ** l -l*i(l >•' )• 

3 P0l5-» F IXE ->1*1(15.0) . 

J >cf ). J . • > -•;•(!-. I ) . 

3 r.D I 3^ e I <e j 1 1 *; ( 1 5 * 0 ) « 

3 C R* C FIxeD j ( I ->•.;) « 

3 cois-> t i * i * • iNdu.i) . 

) 0 RE C EiXfD *1'(1'. )• 

3 DDi e Ike J eI*J(15.J) . 
x LF >/C • * f i .•,£ r. 1 i I ( x i • ) ) • 

) MODEL (-) . 

.. r -•••>.' f | <*• t •/ 1 •( i **.’)) . 
to MR'C E 1 U_N rflNdD.O) . 

>* ‘ ) 1 >j- '•(X’ I J ><1 I ( 1 "* • 0 ) « 

P F lLL rii CRAR ( .v 
OCI ) 1 'EM II \T A 

? I -i*l 
? ! V ' 

2 ! . ID*. (12) 

t i ^lvl r ’ ^ 

3 
3 


) ; 

^5^ » r 

;) f 

pi : 

» ( /)<;• » 

i>|C 

® ■) 1 ^ « 

PIC 

•^SSS^ 1 

PIC 


PIC 




i . 


3 IN70'IE PIC '99'. 

D ff.ST-.i P I * 

3 INSHST^A PIC »q9»; 
nCL 1 DEF DA T a •'ASrIOl >t . 

2 FTl.1 C-taP(lO). 

? I a'o>OTn < »<SS^SSS«H' 

2 TMvLCO PTC • <10)9* * 
net 1 ljFF ■, • / 4 T 4 ribFiMJ). 

2 F IC 1 CHAP (10). 

2 iC-ArMl?) O •-<->). 

2 fi U 2 Crt.*.P(10M 

OCL 1 OFF « >apv ;) . 

2 FlCl CHiO(lO). 

? AC « (4) C<- w ( 1 ft) • 

2 FIl? CHWUO): 

nr l i hFiH 5»m p4^£:o( j ) 

? c«;3h yp 

?. a-»4->”-.i 1 T Y •* 

? aaaJ~-MT"OI<;o 

2 sEsE-y^d 7 ) 

2 ASA- Tf1P(12) 

? 4 a.W"- -’FCIP ( IP) 

? ASA J l7f':JFA(12) 

2 iSA J -’i‘-W(2) 

2 ASAP"ppno(2) 

r>CL oata '*i.ir - c-A-( i?a) 


.1 

- 

t 

uT! 

~3 


ALLOCATE ASAP ')AfS; 

AS Af IhTA.-Yc «Pv>v 2 = ft* 

amOCaTE I.nkuT DATA* 

OCL 1 U4TA -»L*« 

2 OaTa'jL'SC. 

1 ID 

3 WMO 
3 l.ATI 
J LVlbl 
3 ELEv 

3 TOT •>L-'L‘<S ALLOC 
3 v.im-y 
3 r=*L I T:I 
J C iO 

J FSTu I S* 3 
3 LSr^£C‘lD 
j l 5 TO l S* 3 
J -ESt r%*e.D 
3 

j Dcgut ( i^) t _ t „ 

A COuEM'mP r 1 *.£0 

4 'I' i 1 ► * r I if i.) 

a fcL£*SlZE rlxtD 

<» ’ ii ii - r I x F 0 

4 suscuot ca > FIXfcO 

Y- ^ r) C-lAP (!'"'> 


FIXED -PI'UIS) . 
r I<Hj -T 'i < I - ) • 
FIXED p I J ( lb ) . 

F I y «•_ j . 

FIXED -XI 1(15) . 
f I <r' ) - | -i ( 1 -> ) . 
FIXED ril '< ( 1 a ) « 
FIxEd SI ; ( < 1 ) • 

F I xFD P IN (31 ) * 
SaSE)(P)J 


FI XFD 
FIXEO 
t pc i 

FIXED 
► 1 \E • 
F l XED 
F i XE J 
FIXED 

►Up 

r I < ■_ ; ( 

PE > 

I x- n 


A l V ( 3 1 . ’> ) • 
SI *< (31.0) . 
- i . 
a In ( lb.*i) « 
- 1 ’ : a 3 . o ) . 
y ! " 1 i a < 1 ) » 
r* I i ( 1 . 

•• 1 '•) ( 1 S . L ) . 

S 1 *-i ( 1 3 « 0 ) • 

rt T '4 ( Id. ft) . 
jl’-.'tlr ) . 
ril Jt l'j.U) . 

F I Xdi > lI'Hh.U). 


=)1 N ( 1 D . 9 ) . 
A 1 D ( 1 7 • I i « 
•PIN ( lb. 0) « 

-rub* '» • 

P IN ( 1 3 . 0 ) • 


Baca 


t Fir ‘ Cri\i/(-)A) INITC 

on HOL^ i vL r 1 >i r • ( ) •'• » v • s 
Orf y-plO ~y~ °!C MM9»* 
or i < f- F t f | (.'! < I (•>!): 

OCL F 1 1 *3a T < i C-4V(l^| iAStiXPl)* 

OCL 1 U'J V a >■.'.•• -a '••> m (*a 1 ) . 

• FILY > F [X13 r ["( lb) . 

f J) l»r Y *■* CJ <• <| l(i-D. 

f 1 1 • < t ~ J I SF F I > ED 'Id ( is) . 

ni (t l| - I « - ) I (!-'»• 

F 1 1 "!*• '“(1?) ''lx-.) -1 ']-) 

F II "* a- • C i J ( 1 : ) ''<■.) ••( ;( 1- 
F IL”/1 *iDtx (121 f l.xE'> 3f-:(l:. 
F )i ' < vm. ( ) i- | x‘ / i ( , ( 1 1 ) • 

FI XM) -3 r 'J ( >1) 5 


») 


2 
2 
2 
2 
2 
2 
2 
2 

M LOC A I c 

F I l • r S » 
FTL_f c vj 


Fit. r'AI- M2) 

FIlF-t . ; 

= C* 

= -i)-H Ii 

FU -p -j.Cr j - -DNqq; 

Fit 71' Ot'X = -Pqqft* 

FlL.DA^y = f>5 

rin ’{D<EY.C !r* Y.iXiFE’Y.'DIPd .pC. YRCTP) FIxEO -l k MlS) 
Ok FrrO S " 

OCL ET <T Y- FIXEO J lD(l7)5 
■PT'JTY - = l 4 i M 
y-CT ■ - j: 

01SL-V2 = 0 • 

ASAP Tt'*- = -P9P9* 

\ c ^ r r \ ^ s - <> - • ; 


3m 





s«;ao 7 INDEX = 

-HiOV s ll ? 

ASA a_a H'VI s Ot 

DEL pop c,., rwuiii hit < • ;> • ) s 
: OCL GFT'13 eatJ.fL £NT»v? 

'"'cl ct-'^ *• ii. c -vr.io £ jw; j r $ 

OCL DAf p fLr. ?£C 0-0 OHECT ‘PCATt *EY£u EMV HEGIONAl ( 1 > J? 
on CdnV^Si 0 ' 1 »G 1 1 Tv ,v * rl-'vs 
ON E..CF IL£ (CA^OS) bEGlNl” 

EC F s / = • l • : 

00 TO MEw_STPAT4S 
END? 

FRST pt: s 

^EAu FILF(Ca?.>S) 1 .4 TO ( IN? JT—nAT a ) 5 

I*iyp = tpai-islatf (inyp. • )• .• T is 

TmCD = Wa-iSlatp (I 'ICO. • )• , • •): 

I'JLVLCD = TRANSLATE (iDU/LCJ. • 0 • • • •)? 


TO F-sT_^n; 


IF I' Yn < Win TiF; 

HGLC.YH = inyp; 

moFO i /(.rr. = I'lLVLCo} 

DTP CO = hold I vlCD: 

?F’aTT K I • F (•)->■ ) I iTO(CD •IT ,j, »l> r E y ( C H ' Y ) s 

Cal L C-ETOr- 5 ! U y Cl) . 0 1 P < . CO .HOL • "> AF ,D«t Y *DIP« HC) S 

?F K s -| T-"- ' ” .0* 

pijT S<I? OATAOIP C0.DKEY.0I4*) ? 

Ewi 

OD<EY = D1ECC0I?;*) s 
IF L E < - -1 He.' 0 I? 

PUT SKP D..T A ID! c C r ).TVEY.E>!P'<) S 
P‘jT S<T-* lJht ( jIkTOI-'-’) ) : 

POT SKI? LISTd'.PUt DATA)? 

00 TO EOJ? 

END? 

IF [ 0«tY < ft Tr.“ i unT ,Kt? .|1 |j (1 f,- Yl i 
IF DDKtY > 1 1 A T-'f. PIJI SKIP DATA (COKEY) ? 

3~ih F ILF (OAF) ImTO(DATA HL<) KrYl'tOAtf) ? 
r, 0 To C"-' COS? 

GET data: : “ 

“PEAO F ILF(CAPD^) I*lT 0 ( I *-'PJT *)AT A) ? 

IMYO = T»A -iSI / T*-* ( l*'Y >.«•)». • T i : 

IF I\ Y° < i^40 THE \ GO TO GET DATA? 

HC') = •): 

INLVLCO = TPANSLATEdNL 'LO.'D' ♦ • ’ ) 


IF I IVLCIJ -= H-iLf 


CM* 


My 


I F i'.Y4 < MGin yp 
TF I?-Y« > HliL >- Y V 

cns: : 

~’TF INCO = 5 T-t : 

IF I ‘.CO = IS THFN 
IF I‘ C’J = *•=> T«~m 
TF INCO = 101 THFm 
/< i*. ir r , ) = inj t 

TF I^CO - 101 T Hf H 
go to F^O'iCOl 


t */L-' > T **•£ 
Tn-vi f,0 TO 
ThF»-? :v* TO 


S£0 

°jr 


to p 

»:PO J 

' >m * 


s t - A T a i 


GO T T **; -> v*- c T ^ 2 

GO TO ^vIASAOJ 

So r ’ ; _ A > . •■ _ 't f ‘ - 1 ; 

GO ro IV ASA^ H v « 
sn ll •; “sf- 
TM -W ASA ^ PPitD? 


ir 

30 


o/ 


DO XT I 1 T Y l '? : 

If ACHA.?(N) = • 

ASA»_P t ECIP(;) = I\ 

FnD? 

GO 1 I l.F V t A | As 

mv asap I: 

■ Do MS 1 TO ip; 

IF aCHAMn) = • • 

AS/.P TF • -•'(•) S I-,vO-.,( 

END?” 

GO T 1 1 oET Or. I A ? 

MV ASAP ZINDFTs S 

OO M s 1 TO ) v S 

TF ALHAP(M) = • • THE.-J 

A* /l' 1 :»(') - I’. •ON ( \i) ? 
ENDS” 


• THt N 
' )N( US 


THEN 
•:) ? 


TN/fl.N(U) = -YJPAJ 


I 1 ION ( N ) = -NO 99? 


lUO ) j(N) = -ioV-y? 



GO 

Tm »|PT r . : 













TP 

rCHA^Ml) - « 


• fr.r 

T . AG j | 4(1) - 

— ■vyi ; 


TF 

* ( ? ) = • 


» TH*;-| 

I ^ AO . • T * ( ? ) = 

- : 


TF 

IX'OMP ' ’ J • ^ i ' r r * ( 1 ) 

— 

2«>1 T -t*- *' 

; ^ - -« -v > •/ ( i ) 

= r r ft r. • T A t \ ) 


TF 

L*C0DF ( f ) . - { 1 ) 


T^,»| 

^ tu ,V ( 1 ) 

= P'UGITA (1 ) 


TF 

0OV C lO.’ • f ‘ ' r. (^) 

9 

? - ? *i 

r ‘ - - ' I*‘ • ' / ^ ) 

- r • ■ AG. T A (?) 


SO 

TO OFT 





/* 

V T 

•*, D .v •> ^ -1 T F 1 

J>! J T AG 

i c»v. -.f| 


M 7_ 


hi\T: : 






TF 

- ' 


• r m 

1 1 Mi : 

- ■? ^ ^ w ; 


T r 

ACHM-* (?) = 1 


• THlN 

1 j T a ( ' ) r 

- : 


T f 

LCOOF *' Ml) 

T 


d.. M l) 

- T ' ' fl ^ T A ( 1 ) 


TF 

OCr.yp; ? ,s i Cm Jt ( 1 j 

s 

)2 TH 

->l ‘ T ( 1) 

= TNmjlTA(I) 


TP 

I »'.J U* - '.**)# ^ • 'p ( > ) 

S 

, , i > i • - 

c T ( > ) 

= ; * '•*(/) 


GO 

TO OCT JAT •. : 







TH^Cr.O op C 0 W '£ 

4 T 

<p/ 




'll 


• Th£\| iNfl'-Ul a ( 1) = 

• THt j I'laRfj i a ( ? ) = 

Aji.- n 1 ) = 1‘lfi'OTA (1)5 


■> t> 


TMt*N 4 §a^r>>ft JDU) = tNAGr.TA ( 1 ) s 
= [ * 1 4 GO T A ( ? ) X 


\r 


E 3 J. 


mv_asar Fpont t 

IF SChi»^< ( i ) = • 

IF ACHA3«(<!» r « 

t F OCi'Ot ( -») . S'MF Vi*. ( 1 ) = -mi T 

TF DCO')F(.r)) .S'lHCOOfU) = >02 
t>- OCi'uf ( -> ) . S. • '-» CJ * >•*' K ( ? ) = 

no to oft jata; 

PUT *IAT&: t 

"IF YpCTR > !»? TMFN GO TO JO pm 4SA»I 
YPCTp = YtCTr* ♦ It 
FT y T Y° = STRTY-f ♦ it 
A^AW Y P = -n)l I 

QaTaQFSC. vih-vjs U*£0 = YPCT° • 

Asr^ u<T Yw r iuTt> ;c,i r iT‘'rC I ^ 

ASAP"UXT~0I*P = data i^C.L^TOIS* ♦ ]^h: 

IF stpty-» = asu^ y - 4 !j ); ► 

ELSS no: 

K T i v n = st- Ty~ : 

FIL_N<T Y *' = AS« ? * *T_Y-: 
f Tl *.<T jTs>> = ml- . < T -/IF^S 
Y o ~l*'( 7- , CT») = ► I L^A T iT 

UATa I-S-M si .[SJ = u-IA - ♦ 1 M-»i 

GO TO P IT JAT a 5 
£* Oj 

YR PL< ( YWCT 3) - OAT A OOTl 
OATAu-SC.LST )IV J = OTTA )£SC,LSTOXSP ♦ u A a; 

HOLD_YP = INY*: 

ASA-** Tr = -w j i4» 

ASAR"ph£CIp = -p*<392 
AS£-<~£ i’iOP x = 
aSAR~H4WV = 0: 

\SAf*“P*0^ - 01 _ 

GO TC CHK.CDS; 

TE’^ My: : 

3lJT S<IP L IsT ( •**COV;tVSIO N o«**l;PJT DATA): 

GO T*' rOj: 

SEO rao: ; / 

-o’ IT swjd i 1ST (•*••> • • a r a 'jo r l*i hIg*t sf),, ; mO. OaTai: 

GO TO £0J? 

MQ P 4 AS A ^ s ; 

- dot S'I j L ! c T ( • o * GOT ENOUjU Ul S< S^ALS ALLOCATED fop ASAP *<>• 
3 u t s* i p l r > t ( i • r ut* i ; 

PUT s<[ p OATa MOLL 7p* -»OlO.Lv/LCO) S 
go TO toj: 

ERPNCD: S 

PUT S< I P L I ST ( • I . V.p 1 J Cu >t *o • • l I-. I f »A T u J : 

GO TO £0j; 
nfw strata: : 

"IF Y.^CTP > 4? T M SN Go TO .<0 PM ASAP • 

Y»riw = v^CTP ♦ 1 : 

ASA.- YP = hold y~>; 
asap"»»aT y p = -l ; 

AS AP* f a T »MSP = c: 

o^Ta.j^*sc . -sc j = Y.r.i» : 

yp ^lmt-'CTh) = Data-out: 

HOI 0"y^ = [MY >i 

HOLD^LVLCO = IM.VI.CO* 

n iu» to =■ ^wL • i o ':''2 

PF^lTt FILS^AF) FP-r^cOATu ) *£ Y ( *)D < EY ) * 
tp f op s « r • j • r m: » i y- r o r » i ; 

call g^toi J(0JP C'OT^rffCJMT ^Ol«OaF •0>r.Y«CiI^< •PC) : 

Hiu ► Y - o •' * C„ ( • ' ( 0 - ) ; 

TF DL'^l Y < 0 T h c r ' 0 

Pt'T s < T « '/I r . ( # T c ^ • 0 I p k s V ) : 

PUT S<I° LIST ( IM u ;n) ) , 

>: 

TF OU^tY > 11 > 4 PV 5,^1^ DATA (DIP •; ».OlK? f J.iKF. Y) 5 

PF AO F I L F ( J ^ ) ! jM'Mra i -f ) < ( i *k- »• ) 5 

YPCTP • 0: 

S T p T Y p - l^j-: 
asar Tc m P « 

I x 4 ‘fJ 

ASA^» «-APW = 02 

ASAP"Pk'GO - IS 

GO ii chk cost 

LOJ: 5 

rupp fsAP oat *. : 

F p F £ T 4°uT TA : 

F P*’ F t FI I.OATA! 

F*'H asaps 

✓ /LKF I.SYSL I 1 00 

// 1 )S • - Cl V • L 1 •' . L ■ •* '->* 1 1 :.* r aHW 

//go.sysRh: pjT U ) svso'ilr r, 

/ /r is • ) , , ^ * - v « r - . , , • I s ( OL i • »f L r . TF ) t . • ' . 1 T - S Y £»•.' A • 

// r>r f4 - (PfCFM*F- ; •!. '** C.L s H r « • 'l " >1/’-!^- ») 

//OAF nn i iS .s'. # F f * { . C^f • . * ,c T 1 S> = L 

/o 


■n 

3 


fi £3 


3^0 


7 ^ 


RIJN NO. 15 
DESCRIPTION 
M4STEP F ILF 

ft(l'Ff) TO ''SsT;! 

LAST DATE COPIED 
LAST tJPOATt 

PasSwopo 

PPOARA^ER 

LanOiJAOf 

PROC PARAMETER 


DATE 11 / 1 P /75 
DATA 8 mSE PGM 


TIME o<no 


v'.FOS.CCEA.LEC.LIBR 
1 •» / 1 t/7*- . 

NO(jE 

NO'.F 


•w 


LEC 

‘•1.1 

<T>JCL 


(‘•'A I * ) 


i 

> 

? 

e 


i 

3 

i 

3 

4 


Canada: ppuC Op T t 
DCL 1 CC.Tpol. 

c F T I r\<> Ch p(-,) . 

2 WJmPasS FTxEO ")I l (1-3.1). 
PASS (*•> r ( o) . 

N'M-LKV FUt'J H'dliiOl. 

L c »/ J A ( <) r “ u 

NM-'COOE Fi <ED Ri • ( l ■> * 0 > * 
loo ( >?) . 

3 COOfN‘l‘ F I xEO olNUS.O) . 

■ I- I T M'1'1 F I «► -! (• ( 1 5 .'1 ) . 

PA Si FI*t'0 H ;(1 C «.1) » 

•A C A I - Mi - 1 * ( 1 5 . ') ) * 

COOE*'A-«F C-1A-’ (<■*) . 

•I''f T'i W : F i.K ( AC) . 

? N'J**0‘i£ c T.<Ej 3 .I NJ ( is. J) • 

2 0" |C ( "i. ) . 

3 CODE 1 N'JM F I «E0 oi J ( 1 5 • 0 ) . 

j m: i (•fij > s Mi- t • f 

3 PECNU*' FI At :• A I H L ?.;) . 

3 DIspLAC'-* ' ! 1 " 1 (loi'M. 

3 a-a^E CHA-i (2A) . 

2 f It. t>r CF r I <r ) ->I'i ( 1-5. "» . 

2 pfc(oOI) . 

3 •''ECl Y>>t f I j if . ( i ->,0) . 

3 FPESAACF FI*F ' PI J( lS.y) . 
3 • OCA T I O'! f I <E - ->I i ( IS.O ) S 

oci. i cm*. 

? U I •> < HM . 

3 LEVHM FI»n PINd-iiO) . 

3 COT'iijo- r | /: , - I m( IS. ) . 

3 LtT FfAfO MI :( 1 S . 0 ) . 

3 [ Ff yc-i M I ( ] --..0) , 

3 OW'A-t C^AMCAft). 

3 p j; C F f «■ I > i ( 1 M.e ) , 
t p-iisp f i»‘"'> w r. tis.r. > , 

3 f i » <■. o • j :i '-.'it . 

3 jnrsp ft i- i m r ( 1 5 • 0 ) . 

3 c^r FM r ') - !•(!.. I . 

3 CO(<.o F 1 A 5 O -[» (Ii- ,)) . 

3 D’af 0 FT .. 0 j; ,(!,.( i, 

3 DOT S° Ft « > r 'i S I f. ( 1 ^ . >J ) * 

3 L'O'i- f r t : . , - t . f 1 1 . . ) . 

j rfOOE'LU)' 

< 4 r v .i J f f i • fi -if (]•,.)• 

A Mk£C f ! y ? ) , 

c " r i l Sk f j »r< 1 - f ( 1 -> . o ) « 

? FILLER CpA- 1 (so): 

OCL 1 r-p.fT jM.Ti -a -;Fi_m 


L I c TINS OF MODULE CAMAOA 

... . jp, 

- - — - - — j 

^ •** * * - •" 

UEn; ~~3 

E: aF:;^3 




? 

g 

? 

? 


IJYtV 

t 

Ul*ON cl ?) 

I i| VI 1 \i 


nri 


net 


1 

1 r f > •. T 

? riLi 

^ T |A fvr. t 


r-r r» y 

T r. 
Iv/,v r 
T \ ^ T . 


^IC 
1 0 
PIC 

UT c 

p f c 

PI r 
m r ; 

D * 


< ) « 

• (7) , 

• sSS c >' 

• n * « 

• ^ st I # 


iC • v /■ 


.CJ- J| f 'l ) 

(> VM cl)) 
I ;■ • 1 1 s > 


? 

I*;» VI. CO - TC MM) 

^ • 




1 c 

i f •. f 

) 1 




e 

CA'i 7*> 

* i 

» F «i 

i » MS) 


? 

f vr m / • 

r ! 

* * i 

».().) 


? 

f *? ;/ r 3 j : - 

- 1 

• - » * 

M .11) 


? 

► • f J 

r 

i • ’ 

• *• i - . M - 


? 

CAfl ••; i r M - ) 



I a i i> 


? 

Ml ■ ' ' < i t 

^ l 

A ► 

MM 


? 

Cm I t' •"( 1 t 


A, 

r 4 f MC IS) 


? 

■ ;j ' i J .) 

- 1 


u, i 


? 

C.r: Jf a 'T (3) 

► i 

* ► * 1 

•Ml 131 ) 


? 

C a’g p. i" ( M 

f i 

K ►’ t ' 

•t|i.( Ji ) 







OCL DATA.OUT CHAP (12-1) 

ALLOCATE CA'ia .a >at\$ 

allocate Input 7ata{ 

on i u<vta -L'T 

2. OaTaOESC. 

J M 
3 >MO 
J L A T I 
3 l OxGI 
j fi rv 


3AS£0(P) ; 


F l XL » “ , I‘M 11 , 

F I xE r ! H I *1 1 J I .0) , 
F 1 An* t -i I i ( l*)«y ) ♦ 
F I XFO 1 '4 ( i S • 0 ) ♦ 
F l t~ i - I M( ) . 
F [ <*•*.) «IM(1^,0) , 
F [ x*- i M *i ( I «u ) • 
FI 4 FO WI*i(I 5 »Ti) . 

M <F..) 't ( *• ( 1 *> «•> i • 

FIX£0 jlMIlS.i), 

r [ < - . I -| J { 1 - • •> ) . 
f I x E •) OJ !(la«u) . 
f -T.-' ( 1 - ) . 

F UED ( 15 «0 > . 


3 TOTALS*? ALLOC F I <►*,; «i»h15, 
J F[x-*i h|>i(|,, 


3 **I.OC" FI <E 0 *IM <1 

3 F > T F(<F.) -» i * • C l 

3 FsmT-= FIXgO 5 1 m ( 1 

3 I *> T - (** A r h?ii - I M ( I 

3 L^TOISP Fi/rt -1 o i! ( 1 

j »r - .<r > 

3 NinrC •‘■IF F UtO -*rul 

3 -r; ( n> . 

A COOf v.i ,2 FIXED * 1 x 115 * 0 ) « 

U MlvCU| ► ’ Flxru “I 1 'I ( I ?• •) ) . 

- ELr «S?/f FI «ED «IN< Id, )) . 

A M!>C« F I 4 F 1 1 

A S'-RCOOF (?,) FIxF,) t 3 l N ( 1 o . 0 ) » 

? T -t -.1 -• ('* T ) 12*) . 

2 FIl Chasid*) IMTC 

OCL hdlo i.vl.F » 3 1F« ( to) w» ; 

OCL H0L0~yP PIC »(?)*•! 

OC| (>!« Co FI < cr ) • ( u ) s 
0 r L ( Oi\Fy , C<F i .QLXE Y . J I . ~Q . YPCTP ) 
rKt r =0 s 

ypctp=os 

C*N "t* T* -ip = -c.'iAPj 
Ca'i“mIn~TL4P = 

Cf\ TF*ki5 = .u-.*-,: 

CA*CPPfcC!° = 
rt *' •->( r *T = ' s 
CanI^poO = Oi 
OCL for c.. C f 1 1 1 1 1 T (••!•) : 

OCL FvI-TToTP £ *T£->NiL i T-fY; 


fixed Blr (15) s 


Can_MI j TL <p = -->P5P* 

cf\ tfm' = ■> i : 

• CA*“pptCTo = 

rt-i '->la ’T =i: 

CAN_PP00 = 0*. 

OCL f OF t .• C- •• - < D I 1 1 T (••)•) : 

ocl c,.:-:t")Tp e*te j ml e .r-rrs 
OCL c i-.ru, rii -- - C>"' r ' •’ if. 

OCI. OAF fjlF'pFCO- 0 ! i-rCT -VO AT*' GEYEd t iV « tT L» 1 Ci-:aL T 1 
00 C0NVf:f;< • ,1 r., t-.--- ; 

ON tf-'DF TL? <C DS) rEoI ti - 
FOF s = • 1 • : 

GO TO \‘E * SYPiaTA; 

F’ri ; 

FP^T POS s 

SF40 F 1l 1 ' (C ap ,, s >) i to(i*.r ;r ;aTi>); 

1NYP = nao^LATF (|I,Y-. •■)• . • T ) • 

(MCO s. T- A '5t 1.0 ( i'-L'l. • ■)• . * • ) : 

InLWLCO * T^A* *l T£ ( IM. XLCDt •(*•*• •): 

»)0| (I VP = I V ) ! 
hoi. nit vl co - r- LVLCO; 
njw CO = « ■*_. L •/'. ->J i 

PFACJ F IL« (DAFT TNTOICO ITPOL) K c. Y ( C •> E Y ) * 

FALL OL TO I r ( : ■ i . C . " ] - r , f> 'T >01 .')jF .0<t Y . 1 1 - - . ->c ) : 
OlVFy r -Jf'C ( ,M?>-) : 

Of AO F|l.‘ (;' r l I 'TO (OA r “ >L<) ' r y (,n'iv-. 1 ) 5 

GO TO C* k ' COS) 

OFT oata: : 

■pfao FIL 1 ' <CA ’•-) INTO (I IT >11A): 

I ■ J Y - J = T ' A ' j S • u t •* ‘ T) ; 

I -ICO i 7* )* "L A TL ( 1*'C0 • ' '* • • • ')) 

INIVLCO s TPA' ^1 AT C ( p i. ;l« )*')•«• • > : 

TF I\L VLC'J nr OLO LVLCO Tn-.N 0« TO STPATA) 


IF I -'Y- 
IF INYP 
Ch< CO*: : 

"TF I'lCO - 5 Tr*F i GO r ) •<•>/ ( 

if If, co s l-> i "r ; « *v_‘ 

TF loco = 25 Thco 00 r ) >V_( 

IF j ICO z T..- V f.O I 'I '<J ' 

IF If.Cj = In’ TOF? GO to <7. 
IF I ••CO - I') 3 Tm^>- o'l Til *V 
GO TO E »F iCi) * 

My Cam PPf -.!►’) : 

" 00~N = 1 TO 1 > ; 

C*-0 POT C I p ( ' ' l = I •)’•»()•)( r* i ; 

ENOT 

GO TO GET data; 


h »*• | ' y / Tr-h •! (•*) it : 

W, .)L O’*' THM *yj To p 0T2*^TAJ 

5 TM f 1 GO T ) ,y, V_CAMJ ^r.ClP? 
l -» r-r ' * *• j r » W *- 4 4 i * • 

<*? TnCfi r..O r ) W~CAiV~fN5 
5 r • • .1 ii » V C A * * T 1 

= 1 1» ^ nr on in ^7 CAn. M.T : 

S |03 fHc 1 ' > Til »v J A . * • i ' « 





tn*om< vi t 


r MV CAN TXt I 

00 M a 1 TO | 

CAN MAX TFMP(N) 

PNU: 

1 00 TO GET.DATAt 

MV CAN Tn: t 

00 N * 1 TO l?S 

CAM 4IN_T£*0(*I) = I.V10MNJ1 ... 

FNOT 

00 To GET_)ATAS 

MV.CAN.TS t 


r 


n 


00 N s 1 TO 12! 

. CAN_TE.MP (N) = INMOMN)! 




FNO! 

00 TO OFT DATA! 

. . M V_C4'J ‘'UT! T 

CAM Ml. AMT 1 1 ) = 1‘JAGQTA ( 1 ) S 
GO To oKT.OATAJ 
MV CAf! MM GO! ! 

CA-5 PkUiMl) = INAGJTA ( 1 ) ! 

00 TO OtT.uATA! 

P'JT.OATAS ! 

IF YkCTR > **7 TmEN GO TO mO_Rm_CANJ 
yPCJp s YRCTM ♦ 1! 

CAN s hOLO Y»; 

LST"£C\0 = LsT-FCnO ! 


15T0IFP = i.STOIOPS 
'11'MMTCi 1)5*0 = Y‘->CM! 
CA'J_NXT“Y^ = lstm-cnOi 


CA*J MX T 0 1 = I.STOIS 3 ♦ I'M! 
yt> =|.« (7 mCTm) = * 1 A T A OJT; 

I S101SD = f'TiiTe.o . IPhS 
M^LO YV = TOY-?! 

CAM MA ( Tf : -P9R J : 

CAN>I\“T£‘- 1p = -99?9! 

TAM TAv^T = --ci-.J 

CAM"P&tCIP - --/P"^} 
ra*. j ►>(_ aMT = o t 
CAN"P»00 = OS 

on To C nc ! 

TERM (Pm: s " 

3llT ID I I «. T ( •'>»CO'.V- DOT P| su.p *«• . r fijT o A T A ) t 
GO TO FOj: 

SEO PR®! « 

"POT S"Ip LIST!'** DATA NOT IN MIOnT StOUiNCc •<* * « INP'JT.OATA 1 
GO TO tO js 
MO DM CArj: 


OflT C-IP I lOTI'oo NOT CMOJ'.H D1 >< SPAtt AI.LUC A r O) F0-> CA |AliA 
00 TO KOJi 
fpwMCO: : 

ROT SM' J LIST ( •** lOVs-Llu COOr. ••• • lN w ur_OATA » l 
on TO lO )t 
ME/» OTPATa: : 

"If ymCN > -7 Tm£m .>n Tn i • MilS 
yPCTP s YPCTt ♦ |! 

<-A'l yc = -OLn_>vi 


*t • ) j 


L5TPECN0 = L-Tm-.CmO; 
LSTwTOP - '.'TM'V! 
NUMpY-'i U5£D - ( DC T < ! 
njM \«T“v , r -1 ; 

CAM" J*T"ntij - . 5 . 


vp "l< ( 7~C I • > - •’ IT : 

unflj y- = I j v - ; 

mi ' i 0 * 1 vL r ’ = f • : 


tn 1 : 


OIdCl = - >l‘ i.v 
p» •.* ! Te. c IL> '■ 1 r - ' t ti.r< ) v.-.Mli 

tr t'lf o>. = • 1 • r if • r. 1 r.) " ui 

CM l Gt TO I » ( l- .'i .’I p < »7 ■ ) 1 T - 1 'L . OAK t Y * 'jIm* • J C) ! 

OOkI r = O i'.ci j I c . i s 

PE 01 C Ii ► !•!.■> ) l • T n ( n j t A iL<) “t Y < ■>« >► t v ) s 
YPO- s os 

TA'| * t f 1 •’» a - • -S 

Cam" I \ " 1 s - yv y * s 

rr. \~r t - 7 s 

CA % i"l P'tu I P ~ -94 /91 

CAP"/-l AMT = •: 

CAvj"PrM) - OS 

or To c*i« 0.151 


f wi i C -P 1 >4 1 / t T * j 

Fr>Et I .put CATAS 
EMO CA .aCpT 






RUM MO. IS 

DESCRIPTION 

MASTEO HUE 

n *' s t t ^ 
'Last 04 TF CijPKO 
LAST U»')4Tfc. 

PfiSS«OB ■) 
:pqo(,^avmei» 
LAUtVjAtVE 
P»OC PARAMETER 


OaTE ll/12/7-> 
DATA NASF »<V« 


TIME 0*10 


LIST l MO OF MOOt 'I F USA 


^.FOS.CCFA.LtC.LMM 
1"/' .t/7*j 
NO’ it 
Y>?iE 

»r r 7 

l.tC 

P'J 

VOJCL 


. . .. Jt 
i 


USA! OBOC O p T 1 0':S ( •M') s 
OCI. 1 CO'iTPOLt 

c F l L w . I ri 2 C-) . 

? UliMOASS FI».F0 si HIS. 3) . 

2 uJsM") C '»-(-» . 

2 NU'M.Ev f\ *-0 SlMIS.O). 

2 L* V - ( -') C-*'* ( ^“) * 

2 Nt>-cr> f i*Eo m m i s.o) . 

p C<v»? ( t . 

3 C;vtf re* f I*F') <1*. US. 01 . 
ON1 1 •••!•• F ! « ’ ||).>|. 

**4 St F 3 t •■- ( i • • Vi 1 • 

SC 41 ‘ FT < r.i -I M 1 J, >) . 
COOt'.A4F ClA-(»t,), 
ll'i I !>•!'■? C-*AP t ‘ ♦ ) • 

NH-*OMF FI*.-) JIM I*,,.)), 

•.F (XU) . 

CtiOElMU'* F l *FL> ;< 1S.0) . 
\ i - 'i >; fi<fi I • (1-3.0). 
6 -ECvm f lx to -I" ( 1 . 3 . ') . 
r > T S "’I *.,"F * 1 ft -| llh.OI. 

F II FPF F 1 > - •« -i ;||VJ)« 
SEC (Sul ) . 

J PFCI r-'" r t <• ) • 1 ( l-’.'J » . 

J Fu-E?f*cf fj ,( , . I vM l s . j > . 
J i HOT r Flip • ; m l . . • ) : 

or L 1 01*' 

p or- - ' 


2 

2 


) 

3 

3 

3 

J 


( - U ) . 

t'JM F I Vt.o if l c .0) . 
-l-.r ,11- i F ; *t •• I ■ (l-,,4) 

L AT Ft <Fr, J Tr( 1 S.O) , 

LO-* F t u r. ( 1 -,. i ) . 

OIPNA-pf r.MP(?A). 

p-iF c F t <f ip ( | i. ) . 

P'lTSP F lf~ i (S.O) . 

-i : ~C F I * %i •(!*,• ) • 
bf>I^ f** r D ; iN(b.l) • 

C - ! * . < 1 - • » j • 

C^l^o F I tirn *• I \ ( 1 *> • ) ) • 
o^r r» #* > hiv( !-,• ) • 

0 )1 F I * F r > HIMCI^.OI • 

L^r.r>v F* t if ji *» i . ) • 


? F 

oa. 


n CL 


nr L 




i MODEL <m) • 



4 

rw ip ft * . o 

• j . r » 

u » -M « 

4 

‘•“uKC. F j 0 

m •< i 

• j ) • 

4 

•tut SC I t o •, 

V I it 1 

U lE u C>t* ( .»v) 

• 

• 


1 / 

S'f » r • r * ‘o jr. ‘ ( ) • 

? 

!-Nf4 

P I c 



ImC ) 

- : i : 

• 4 « * • . 


I'i'iOMl?) 

PIC 

• $sss* f 


r *<l v l i '• 




i ! ' C T 9 r 

Pt c 

• • , 


1 ! 

O T ~ 

• (Jt, 


3 !■■*/■ vit 

Pi-: 

• 1 <• • 


j ; 


• ’M • • 


bsiq-M 

° T r 

• y ) • 5 

1 U 

r r ' * t f -t 

') f . » • 



f'Tl l 

C*< '• * 

( l A» ) • 


I *:a t ( *• » 

-ir • 



!•«»! VLC</ T C 

• ( 10 ; 


1 U l T A v A . ► • ( )) , 

? nci c^.wn.j) 

c> •>' ( 1 -?) Ci f > ) 


? m ? 

J lJ r /' 

? f i ri 

nit 


? 

? 


r i • - 1 1 j ) : 

T4 — s v * ( j • 

Cm ’-••'( i it . 

t ' 1 " . 

l"» i 


t • 





OCI 1 US* o ATA a .. 

2 Y3 Ft< p O 9 |Aj(15). 

/ MSA"- • T yj h'l<r »•'!'.( I 5l « 

? USA MT OJJO Ff«Fi) ilijtlS) . 

? y i <io “I . 1 1 '» 

2 iiSa (12) ■ non •stMti'j). 

2 iis» .. <* r i -> ( i ^ i f i * ) > ! ( 1^) • 

2 U$A _ f »Ef.OflV ( 12) rlo'O -ilMIMi 
2 USA Hu»y(«| Fit- Ji> • 

2 (A) F SlMil) . 

? ,|S.. ► „,)!.«..) I -» t *• ( .11 ) « 

OCL OiTA 0'iT C-4-C12*) riAS£J(*»n 

ai t (,'C 4 f Nk 'at j 

= 01 

»LlUC 4 K I l*' | iT T * s 
OCC 1 D4T& 

2 '■•uT/n*';c« 

:» n -T^ii. 

J • ' t * I « • » ** * • ( 3 i « 

•J L AT t n>\ • nl IU*>, 

3 | *1 | » j * \ ' • * I t ) *! < 

3 n.FV rj.r in 

j Till <1 f 1. 1. ■ r J • * ' “ f ' ( l -> < 

3 Mii-.nr-s « i « ri i m!‘i(15< 

3 l .( . t7‘ r J *' * ~f*'l 1 *j« 

3 FST-FCnO * t o ) Hi jUS. 

j F<r>i< ’ ► i *■ > r r 1 1 ■> < 

3 i.st-FCnO risr.n 'SJm( Js« 

j 1ST. i;» f I <» •> S l ' ( i r < 

j Sr ** Vt 0 Cn-Uol. 

J 'll •'-C li 1 " F I *-. > vl J( 15' 

3 OCOuMl?). 

A C 1 ■* '*• 1 - f I S* , 4 I *4 ( 

A WSn.r *1 F | .« c. • < -I’4(. 

/, -‘l» m/ : .'I »*• '• -l M 

A NlJ SC'l. F t t *10 »M I < 

<• '► ( - ) -" | '* ,) • l 1 ( 

2 Y<_oL l/ (A/) C*UO(12 J ) . 

> f|l £-• l • f V») I . I T ( • 

OCL nOCO L >icn -!C (I'M »• i 

nri nn| ■) y u [ r • ( 7) ; 

ncL ui* rn n .to - > • • t . j 1 i ; 

on hl'.'ta c'** < t ^ -t-M) : 

OCL 1 U't* JS* ■•a S' )(-*!)• 

2 a 11 r>- a » •' o • 1 .< US) . 

2 F ll i < T y • > F I <-* j nl-ibl . 

2 All" » T "1 - I ‘\J • I ill •->) . 


A I o,0 -* I k J ( 31 •»# I 

* 4 * *. 1 * • ( .» i • 1/ I 

FI **; . nl i| y,ul 

► j * . » • » i i j *■ . i i 

r I I •*! (I 1 . 

f I «* > “ I • t !-»«••> 

c I »rl 1 *10(15.0) 
r i • " I ~ f • 1 * -j • ‘ ) 

A t *5o I US. 01 
F i 1 > tit r i - • I ) 

ris5o s|''iis.'/i 
A i «*. •> SI 
Ci.-lld. 
r I *• i ‘ I J ( 1 S .0 I 

F I O < -l*Jl l*>. 

fi <f, “i'liiit 

r ! ■ • ' 1 -Il(|->« 

f i <to ki-3. 

-t.ii'. 


r iu. ■ » i o • t y ^ 

Fit • A U r . - I - ( 1 I . 

A’ t L~ 1 A"’*' ( 1 J 1 • i V- .! 1 J. * J (1S I . 

A It”- -'CJA' ( 1 ') r !<’ i ■' l‘l( IS) . 
riL * ,r A'..' y ( | 2 I • 1 * . ■ ' i i'll). 

nr si -'>/(•.) ft*'. ^ -i i * i a 1 1 • 


■*l\ U-.I ( 


l A II S| -.T (-) A I ** 

f A !f - (-1 FJxFu 

M l OCM- I p Out* S 
F ) | _mF S V = "J 
r j j | *- v, i . <#’4 * ; 

riLl^tCT.> = 

rn ^ * i^v r - 

F II -U.ZV = OS 

► ir * *l * t = f} * 

F 1 1 Pw 'j* » = 0 : 

( | ,«* p Y « C- ► Y « i- * Y • * j ■ ' • A 

c ; r Y 5 f* s 

r^ri v,t,Tr r f/.fn -»l.( l-») s 
ST&IY^ i J 4 jrt 
y - 0 T ** s . s 

• 1^ ^ T ► ‘ • < ' : 

l jc, r f l> r -4'^*/: 

I | ^ fl "Of (J I ‘k f s 

iic ; r ^ : 

♦ v» = “ : 

= 's 

r )Cl of f . ^ o* \ M ) T * I M 1 » 1 i 

net frFflM f u r 'f m*s 

nrr f ft » f i » f •' ' r. • > • f I i 

ort f t t ► cf 

^ ( •» WNI • ’ Ti f *• V- 
O’: M. H :i ** - r * T •; 

FnF S ^ -• • * 1 : 
r>u Tu :r i - » T ** s 

► * t nt 

uo: : 

^ <Ui f 1 1 r (C'a- l ;T0( I \*>'J I . 


► I * r . ' I*M Ji j t 
" I^*.U li e M ) s 


kvI a) ; 




r.ir 


Tny» * Toa <A| -TF ( I my*. • V . • 

t ICO s I-;-* iSL'tfct l' l 
1'U.vijCl) * T»tt*»*U iff ( !»« v/LCI« 


.»•« < 


HOLU.YW * l iY •* l 

“♦C'LU-L <LCi) 


ivji r-‘\ ;•„ 


/in 

T.i 


• i l 

' > « 

».)•.* • It 

r S 1 _ J ti * 


.Jit* rU" 


At y cCa£y j ; 


xlciVrjhuinar^uit r.t>i«n.«'C> s 


rr- 


* t IL/LC ' I 

0I» C> * r* LVtcut 

j*aC f i L r j j »► r t t:<co 

call GtTlM>/|')f^_CO.nT- 
IF *L * -1 T-* 1 w' ? • 

OUT S*'I a lUTAMlP r,.['"fr. )H*U 
E\0t ■ - . - 

WVtY * CWfCinis*! t 
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3.3.13 CONTROL BLOCK LISTER (YESLS02) 

YESLS02 is provided to list the contents of the control block. 

3.3.13.1 Linkages 
None. 

3.3.13.2 Interfaces 

INITIAL must be run before YESLS02. 

3.3.13.3 Inputs 

Card containing ++END OF COMMAND. 

3.3.13.4 Outputs 
Control block listing. 

3.3.13.5 Flow Chart 
Next page. 

3.3.13.6 Listing 
Follows flow chart. 
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3.3.14 DIRECTORY BLOCK LISTER (YESLS04) 

YESLS04 is provided to list directory information 

3.3.14.1 Linkages 
None. 

3.3.14.2 Interfaces 

The directories requested must have been defined. 

3.3.14.3 Inputs 

Cards requesting directories. 

3.3.14.4 Outputs 

* 

Directory 1-ktings. 

3.3.14.5 Flow Chart 
Next page. 

3.3.14.6 Listing 
Follows flow chart. 
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3.3.15 LISTING DATA IN THE DATA BASE (LISTJOB) 
LISTJOB is provided to list data in the data base 


3.3.15.1 Linkages 
None. 

3.3.15.2 Interfaces 

Data and control block entries must exist for the countries 
requested. 

3.3.15.3 Inputs 

Request for data cards on a country basis. 

3.3.15.4 Outputs 
Listings of data by country. 

3.3.15.5 Flow Chart 
Next page. 


3.3.15.6 Listing 


Follows flow chart 
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4. OPERATION 


This section describes the operation of each of the monthly 
yield data base support programs. 

4.1 OPERATING INSTRUCTIONS 

There are four types of programs run in maintaining and using 
the YES Yield Monthly Daca Base: data base initialization, data 

base definition, data base load and update and listing. 

4.1.1 DATA BASE INITIALIZATION 

The file initialization program is the first program to be run 
in setting up the data base. This program defines the first 
record of the file to be the control block and all other records 
as blank. It also sets the variables in the control block to 
some dummy values which will be changed in subsequent programs 
to accommodate the actual situation. One variable, the number 
of records contained in the file excluding the control block, is 
dependent on the user's facilities and must be filled into the 
program before it is run. 

4.1.2 DATA BASE DEFINITION 

Definition of the data base involves establishing the control 
block, defining the directories, and entering the data defini- 
tions. An example run setup is given in appendix C. 

4. 1.2.1 Definition of the Control Block 

Definition of the control block is the second step in the creation 
of the data base. 

1. Not all sections and subsections must be defined by the user. 

The file initialization program sets all variables to standard 
values and some of these values should be changed only when they 
are automatically modified during execution of other programs. 



! 


These include the number of level-one entries, the informa- 
tion about level-one entries, the number of records on the 
file, and the information about each of the records on the 
file; these are sections 8, 3, 10, and 11, respectively. All 
other sections should be defined. 

2 . Information is read in on cards with only one section or only 
one subsection of a section on a card. 

3 . Names are punched left-justif ied, or starting in the leftmost 
column of the field, and numbers are punched right-justified. 

4. The section number must be punched in columns 6 and 7, and 
the subsection number in columns 9 and 10. Zero is used if 
the section has no subsection. 

5. Since each section contains different types of information, 
the formats in which they are entered must also change. 

a. For sections 2, 4, 6, 8, and 10, the appropriate number 
is punched in the field of columns 12 to 15. 

b. For section 1, the file identification name is punched 
in the field of columns 12 to 19. 

c. For all subsections of section 3, the password is punched 
in the field of columns 12 to 19. Note that once sec- 
tions 2 and 3 are defined, subsequent programs accessing 
the file will require a password card. 

d. For all subsections of section 5, the level name is punched 
in the field of columns 12 to 35. 

e. For all subsections of section 7, the code number, unit 
number, base, scale, code name, and unit name should be 
punched in the field of columns 12 to 15, 17 to 20, 22 to 

' 25, 27 to 30, 32 to 55, and 57 to 80, respectively. 

f. For all subsections of section 9, the code number, number 
of directories, record number, displacement, and name 



should be punched in the field of columns 12 to 15, 17 
to 20, 22 to 25, 27 to 30, and 32 to 55, respectively. 

g. F>r all subsections of section 11, the record type and 
amount and location of free space should be punched in 
the field of columns 12 to 15, 17 to 20, and 22 to 25, 
respectively. 

Updating the control block is done in two ways, manually by the 

user or automatically with the other programs. 

1. The manual update of the control block is done with the same 
program that was used for defining it. Consequently, the 
same formats for each of the sections and/or subsections are 
followed. Any section and/or subsection can be changed using 
the program but only sections 1 through 7 or section 10 should 
ever need to be changed. For the subsections of sections 7, 

9, and 11, all the variables must be punched on the card even 
if some values remain the same; if a variable's field is empty, 
it will be coded as blank on the file. 

2. The automatic update of the control block is done by the other 
programs which add information to the file. The sections 8 
and 9 are changed when the directory block for a new level- 
one region is defined. Whenever a block on the file is read 
into for the first time, section 11 is changed to show which 
type of information was read in; also whenever information is 
added in a block, section 11 is changed to show the amount of 
free space remaining. 

4. 1.2.2 Defining the Directories 

Definition of the directory entries in the directory block, or 

blocks, is the third step in the creation of the data base. 

1. Information for each directory entry is read in on one card. 

c S<r<, 
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2. Names are punched left-justified and numbers are punched 
right- justified in their appropriate field of columns. 

3. Sections 1 through 5 and section 14 are punched in columns 3 
to 4, 5 to 8, 10 to 14, 15 to 19, 21 to 44, and 71 to 80, 
respectively. These are the level number, code number, 
latitude, longitude, entry name and the unique ten-digit 
code. 

4. Sections 12 and 13 are defined during execution of the program 
which defines the data descriptor entries, and section 15 is 
defined during execution of the program which defines the 
model definition blocks; no user definition is required. 

5. Sections 6 through 11 are defined with the define directory 
program, but some user input is necessary. In the field of 
columns 45 to 48, the position in the input card deck of the 
entry's parent is coded. For example, if Colorado, a level- 
three region, is the third directory entry card, then the 
entries for the level-four regions in Colorado would have a 

3 coded in column 48. Level-one regions would have a negative 
one coded since they have no parent. In the fields of col- 
umns 49 to 52 and 53 to 56 are coded the positions in the card 
deck of the directory entries corresponding to the entry's 
brother and child. Negative ones are coded if there is no 
brother or child. 

6. Only directory entries for one level-one region and the higher 
levels within it can be defined during one execution of the 
define directory program. The program will be terminated if 

a second level-one card is encountered. 

7. The first input card must be the level-one region's directory 
entry. If the level of the first card is not one, then the 
program will be terminated. The remaining cards can be in any 
order; however, calculations of the parent, brother, and child 
positions would be facilitated if the entries were kept in 
sequence. 


^ 77 


8. If the define directory program is run twice with the same 
input cards, then there will be two directory blocks for the 
same country, and the country will be listed twice in the 
control block information. 

Directory entries are automatically updated by the other programs 
which add information to the file. Sections 12 and 13 are changed 
when the data descriptor entries are added to the file. The sub- 
sections of section 15 are changed when the model definition blocks 
are added to the file. 

4.1.2. 3 Defining the Data Descriptors 

Definition of the data descriptor entries must be done before the 
data can be placed on the file and after the directory entries 
have been defined. 

1. Information for each data descriptor entry is read in on a 
set of cards, the number of cards dependent on the number of 
variable codes required for the data. 

2. Numbers are punched right- justified in their appropriate 
field of columns. 

3. Sections 1, 2, 5, 6, 8, and 14 are punched in columns 2 to 11, 
13 to 17, 19 to 22, 24 to 25, 27 to 30, and 32 to 33, respec- 
tively. These are the identification number, WMO number, ele- 
vation, total number of years for which data could be defined, 
length in bytes for storage of one year's data, and the number 
of codes. 

4. The information for each code in section 15 is punched on a 
separate card. The number of code cards must be equal to the 
number of codes specified on the first card. The code number, 
number of elements, element size, and number of subcodes are 
punched in the field of columns 2 to 4, 6 to 8, 10 to 11, and 
13, respectively. The one to eight subcode numbers are punched 
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in the fields of columns 15 to 17, 19 to 21, 23 to 25, 27 
to 29, 31 to 33, 35 to 37, 39 to 41, and 43 to 45, as needed. 

5. Sections 3 and 4 are defined during execution of the define 
descriptor program by copying the information from the region's 
directory entry. Sections 7 and 9 to 12 are defined during 
execution of the program which defines the data onto the file. 
Mo user definition is required. 

6. The entire set of cards is repeated for each data descriptor 
entry being defined. 

Updating the data descriptor entries is done two ways, manually 

by the user and automatically with the define data programs. 

1. The manual update of the descriptor entries is done with the 
same program that was used for defining the entries. In order 
to update a particular descriptor entry which is already 
defined, the entire set of cards used to define that entry 

is input again with appropriate corrections made. The pointers 
to the data, sections 9 to 12, are not changed when the define 
descriptor program is used for update. To add more data 
descriptor entries to the file, the same format is used to 
construct the set of cards for each entry and the define 
descriptor program used again. 

2. The automatic update of the data descriptor entries is done 
during execution of programs which define or update data on 
the file. The sections involved are 7 and 9 to 12. 

4.1.3 ENTERING AND UPDATING DATA 

Initial load of data may be done either by the updating program 

UPDDATA , or the individual country loaders AUSARG, USSR, CANADA, 

and USA. 






4 * 1 . 3. 1 Entering Data With the Individual Country Loaders 

Before the data can be placed on the file the control block, 
directory entries and data descriptor entries must all be 
defined. 

1. Data for each variable within a certain year and region are 
entered on separate cards. The cards are grouped by year 
and sorted chronologically within each region before execu- 
tion of a define data program. 

2. Numbers are punched right-justified in their appropriate 
field of columns. 

3 . There are two different formats for entering data, one for 
meteorological data and one for yield data. Both formats 
require the year, variable code, and identification number 
to be punched in the field of columns 4 to 7, 8 to 10, and 
71 to 80, respectively. 

a. For a meteorological variable, the data for each of the 
12 months are punched in the field of columns 11 to 15, 

16 to 20, 21 to 25, 26 to 30, 31 to 35, 36 to 40, 41 to 

45, 46 to 50, 51 to 55, 56 to 60, 61 to 65, and 66 to 

70. If any of the 12 fields is blank, the value of the 
variable for that month will be coded as -9999 on the 
file to indicate a missing value. 

b. For a yield variable, the data for each crop are punched 

in the field of columns 11 to 20, 21 to 30, 31 to 40, and 

41 to 50, as needed. If more than one crop is reported, 

then it is assumed that the data are organized in ascend- 
ing order according to crop code. For example, spring 
wheat with code 201 is punched in the field 11 to 20 and 
winter wheat with code 202 in the field 21 to 30. If 
there is only one crop, the value of the yield variable 
is punched in the field 11 to 20. Extra fields should 
be left blank. 


Jp/cr* 


4 *1.3. 2 Updating Data 

Data are updated by use of the update data program UPDDATA. 

Update includes changing data for years which already exist on 

the file and adding data for new years. It does not include 

adding data for regions which have no data descriptor entry; the 

data descriptor entry must be defined first. 

1. The same formats used for defining data of the meteorological 
and yield variables are used for updating those data. 

2. Cards can be entered in any order, although sorting the cards 
by year for each region identification number makes the pro- 
gram more efficient. 

3. In the case of meteorological data, values of the variable 
for any month which are left blank will be assigned values 
of -9999. Therefore, if one month of a year's precipitation 
data needs to be changed, the values for all months should 
be coded. In the case of yield data, the same procedure will 
hold for the values of the variables for the different crops 
which are missing. 

4. When a new year is added to the file, it is not necessary 
that all variables be defined; one variable card for a year 
not previously defined is sufficient to initialize space and 
change all appropriate pointers for the new year. However, 
values of the undefined variables will be zero rather than 
the value -9999 which usually denotes a missing value. The 
-9999 can be assigned for all values of a variable by enter- 
ing a card for that variable with blanks for all months or 
crop information. 

5. When an old year is updated, only the variable or variables 
which need changes need input cards. The other variables 
remain unchanged. 
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. The program assumes that enough free space exists in the 
data block for extra years if they need to be defined. It 
does not start a new record as a second data block for the 
region. 

7. The program assumes that the variable being updated or 
defined is one which is already defined in the region's 
data descriptor entry. It cannot define new variables 
until their code number , position, and length are put in 
the data descriptor. 

4.1.4 LISTING PROGRAMS 

Three listing programs are provided: YESLS02 to list the control 

block, YESLS04 to list directories, and LISTJOB to list data. 

4. 1.4.1 Listing the Control Block 

To list information in the control block, the program YESLS02 is 
used. The only input required is a card with '++END OF COMMAND' 
punched in columns 1 to 16. 

4 . 1 . 4 . 2 Listing the Directory Blocks 

To list directory information, the program YESLS04 is used. The 
ten-digit identification code for the appropriate region should 
be punched in columns 2 to 11. The program will then list the 
directory entry for that region and all smaller regions within 
that region. For example, if all the Canadian directory entries 
are needed, the code 0500000000 is used; if only the Alberta 
regions are needed, then the code 0502030000 is used. Any number 
of input code cards can be used, and then all followed by an 
1 ++END OF COMMAND 1 card. 


leTj 


4,1,4,? p lating the Dat a Descriptor and Data Blocks 

To list descriptor information and data* the program LISTJOB Is 
used, ?he t®n-digtt identification cod® for the appropriate region 
should be punched In columns 2 to 11. Borne control and directory 
information will be printed as well as data for all available years 
for that region. Any number of input code cards can be used* and 
then all followed by an '-M-ENP OF COMMAND' card. 


APPENDIX A 


STRUCTURES 



Appendix A: Structures 


Control Block 

This is the first record on the file and is 6440 bytes long. 


DCL 1 CONTROL 


2 

FILEID 

CHAR (8) , 

2 

NUMPASS 

FIXED BIN (15/0) , 

2 

PASS (8) 

CHAR (8) , 

2 

NUMLEV 

FIXED BIN (15,0) , 

2 

LEVNAME ( 8 ) 

CHAR (24) , 

2 

NUMCODE 

FIXED BIN (15,0) , 

2 

CODE (32) , 



3 CODENUM 

FIXED BIN (15,0) , 


3 UNITNUM 

FIXED BIN (15,0) , 


3 BASE 

FIXED BIN (15,0) , 


3 SCALE 

FIXED BIN (15,0) , 


3 CODENAME 

CHAR (24) , 


3 UNITNAME 

CHAR (24) , 

2 

NUMONE 

FIXED BIN (15,0) , 

2 

ONE (24) , 



3 CODE1NUM 

FIXED BIN (15,0) , 


3 NUMDIRS 

FIXED BIN (15,0) , 


3 RECNUM 

FIXED BIN ( 15 , 0) , 


3 DISPLACE 

FIXED BIN (15,0) , 


3 NAME 

CHAR (24) , 

2 

FILERECS 

FIXED BIN (15,0) , 

2 

REC (601) , 



3 RECTYPE 

FIXED BIN ( 15 , 0) , 


3 FRESPACE 

FIXED BIN (15,0) , 


3 LOCATION 

FIXED BIN (15 ,0) ; 




Directory Entry 

A maximum of 84 directory entries can be placed in 
block; each entry is 76 bytes long. 


DCL 1 DIR, 

2 LEVNUM 

2 CODKNUMB 

2 LAT 
2 LON 
2 D1RNAME 
2 PREC 
2 PDISP 
2 BREC 
2 BDISP 
2 CREC 
2 CDISP 
2 DREC 
2 DDT SP 
2 LLVCODE 
2 MODEL (4) , 
3 CROP 
3 MR EC 
3 MD1SP 


FIXED BIN (15,0) , 
FIXED BIN (15,0) , 
FIXED BIN (15,0) , 
FIXED BIN (15,0) , 
FIXED BIN (15, 0) , 
FIXED BIN (15,0), 
FIXED BIN (15,0) , 
FIXED B I N ( 1 5 , 0 ) , 
FIXED BIN (15,0), 
FIXED BIN (15,0) , 
FIXED BIN (15,0) , 
FIXED BIN (15 0) , 
FIXED BIN (1 5,0) , 
FIXED BIN ( 3 1 , 0) , 

FIXED BIN (15, 0) , 
FIXED BIN (15,0), 
FIXED BIN (15, 0) ; 


directory 


» • 

Data Descriptor Entry 

This precedes the data for each region in the data 
it is 336 bytes long. 


DCL 1 DESC, 


2 

ID 

FIXED 

BIN (31 , 0) , 

2 

WMO 

FIXED 

BIN (31.0) , 

2 

LATI 

FIXED 

BIN (15.0) , 

2 

LONG 

FIXED 

BIN (IS, 0) , 

2 

ELEV 

FIXED 

BIN (15. 0) , 

2 

TOTBLKS 

FIXED 

BIN (15,0) , 

2 

NUMBYRS 

FIXED 

BIN (15.0) , 

2 

BLKSIZE 

FIXED 

BIN (15,0) , 

2 

FSTRECNO 

FIXED 

BIN (IS, 0) , 

2 

FSTDISP 

FIXED 

BIN (15 , 0 ) , 

2 

LSTRECNO 

FIXED 

BIN (15 , 0) , 

2 

LSTDISP 

FIXED 

BIN (15,0) , 

2 

RESERVED 

CHAR(18) , 

2 

NUMBCODE 

FIXED 

BIN (15 , 0) , 

2 

DCODE (12) , 




3 CODENUMB 

FIXED 

BIN (15, 0) , 


3 NUMSELEM 

FIXED 

BIN (15,0) , 


3 ELEMSIZE 

FIXED 

BIN(15,0) , 


3 NUMSCODE 

FIXED 

BIN (15,0) , 


3 SUBCODE (8) 

FIXED 

BIN (15,0) ; 




blocks; 



Australia Data Year Entry 

Thera is a maximum of 47 years following the data descriptor 
entry in a data block for each Australian region; each year 
entry is 128 bytes long.. 


DCL 1 AUSTRALIA# 

2 YEAR 
2 NXTYRREC 
2 NXTYRDISP 
2 FILLER (17) 

2 MEANTEMP (12) 

2 PRECIP (12) 

2 Z (12) 

2 PRODUCTION (2) 
2 HARVESTED (2) 


FIXED BIN (15# 0) # 
FIXED BIN (15 0) # 
FIXED BIN(15#0) # 
FIXED BIN(15#0) # 
FIXED BIN (15# 0) # 
FIXED BIN (15# 0) # 
FIXED BIN (15 # 0) # 
FIXED BIN (31 #0) # 
FIXED BIN (31 #0) ; 


Canada Data Year Entry 

There is a maximum of 47 years following the data descriptor 
entry in a data block for each Canadian region; each year entry 
is 128 bytes long. 


DCL 1 CANADA, 

2 YEAR 
2 NXTYRREC 
2 NXTRYDISP 
2 FILLER 
2 MAXTEMP (12) 

2 14 INTEMP (12) 

2 MEANTEMP (12) 

2 PRECIP (12) 

2 PLANTED (3) 

2 PRODUCTION (3) 


FIXED BIN (15,0) , 
FIXED BIN (15,0) , 
FIXED BIN (15,0) , 
FIXED BIN (15,0) , 
FIXED BIN (15,0) , 
FIXED BIN (15,0) , 
FIXED BIN (15,0) , 
FIXED BIN (15,0) , 
FIXED BIN (31,0) , 
FIXED BIN (31,0); 


— 


U.S.S.R. Data Year Entry 

There is a maximum of 22 years following the data descriptor 
entry for each Russian region in a data block; the data for 
two regions can be placed in each* data block. Each year 
entry is 88 bytes long. 


DCL 1 USSR, 

2 YEAR 
2 NXTYRREC 
2 NXTYRDISP 
2 FILLER 
2 MEANTEMP(12) 

2 PRECIP (12) 

2 HARVESTED (4) 

2 PRODUCTION (4) 


FIXED BIN (15,0), 
FIXED BIN (15,0), 
FIXED BIN (15,0), 
FIXED BIN (15,0), 
FIXED BIN (15 , 0) , 
FIXED BIN (15,0), 
FIXED BIN (31,0), 
FIXED BIN (31,0); 


United States Data Year Entry 

There is a maximum of 47 years following the data descriptor 
entry in a data block for each United States region; each year 
entry is 128 bytes long. 


DCL 1 US, 

2 YEAR 
2 NXTYRREC 
2 NXTYRDISP 
2 FILLER 
2 MEANTEMP (12) 

2 PRECIP (12) 

2 DEGREEDAY (12) 
2 HARVESTED (4) 

2 PLANTED (4) 

2 PRODUCTION (4) 


FIXED BIN (15,0) , 
FIXED BIN (15,0) , 
FIXED BIN (15,0), 
FIXED BIN (15,0) , 
FIXED 3IN (15,0) , 
FIXED BIN (15,0), 
FIXED BIN (15,0) , 
FIXED ’BIN (31,0) , 
FIXED BIN (31,0) , 
FIXED BIN (31,0); 
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VARIABLE CODES 


Appsndlx B* Variables Codas 


Meteorological Variables 

Precipitation _ 5 

Maximum Temperature * 15 

Minimum Temperature 23 

Mean Temperature 35 

Degree Days Above 40 

Degree Days Below SO 

Palmer Drought Z-Index 45 

Yield Variables 

Harvested 101 

Planted 102 

Production 103 

Harvested Yield 104 

Planted Yield 105 

Crops 

Spring Wheat 201 

j Winter Wheat 202 

j Rice 206 

j Corn _ 211 

Soybeans 216 

Sorghum 221 

Flax 226 

^ i Unit of Measurement 

’ i Inches .102 

j Bushels 128 

j Acres 136 

| Degrees Fahrenheit 141 

| Bushels/Acre 151 

j Millimeters 201 

i Quintals 228 

I Hectares 236 

| Degree's Centigrade 241 

j Quintals/Hectare 251 

j Monthly 5 

! Others 

Hourly • * 1 

j 3-hourly 3 

; ' 6-hour ly 6 

i Daily 11 

Weekly 16 

Monthly 26 

Year 61 

Pointer 90 

Record Pointer 91 

Displacement Pointer 92 

Filler or P.eserved Space 99 
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